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: ^GECS(2100

Package: Generic Code Sheet

Global: ^GECS(2100


Information

FileMan FileNo FileMan Filename Package
2100 GENERIC CODE SHEET Generic Code Sheet

Description

Directly Accessed By Routines, Total: 63

Package Total Routines
IFCAP 18 ITEM SPECIFIC INFORMATION    PRCFMS:AO    PRCFMS:AT    PRCFMS:AV    PRCFMS:BD    PRCFMS:CO(CONTRACT ORDER)    PRCFMS:CONTROL    PRCFMS:CX
PRCFMS:DD    PRCFMS:DV    PRCFMS:IF    PRCFMS:IV    PRCFMS:MO    PRCFMS:MV    PRCFMS:NC    PRCFMS:OP
PRCFMS:PV    PRCFMS:RC    
Generic Code Sheet 16 GECS READY FOR BATCHING    GECSBATC    GECSDG    GECSEDIT    GECSENTR    GECSMUT1    GECSMUT2    GECSPPRE
GECSPUR1    GECSTRAN    GECSUFMS    GECSUSTA    GECSUTIL    GECSXBLD    ^GECS(2101.7    GECSXBL1
Fee Basis 4 FB FEEBASIS-IFCAP 994.00    FB FEEBASIS-IFCAP 994.01    FB FEEBASIS-IFCAP 994.90    ^FBAA(163.98    
Registration 1 DGGECSB    

Accessed By FileMan Db Calls, Total: 10

Package Total Routines
Generic Code Sheet 9 GECSBATC    GECSDG    GECSEDIT    GECSENTR    GECSMUT1    GECSPUR1    GECSREP0    GECSUSEL
GECSUSTA    
Registration 1 DGGECSB    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Generic Code Sheet 1 GENERIC CODE SHEET BATCH TYPE(#2101.1)[2]    
Kernel 1 NEW PERSON(#200)[.959.01]    

Fields, Total: 2603

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

  • INPUT TRANSFORM:  K:$L(X)>21!($L(X)<4)!'(X'?1P.E) X
  • LAST EDITED:  AUG 15, 1990
  • HELP-PROMPT:  ANSWER MUST BE 4-21 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    The id number of the code sheet. The input is in the form 'code sheet number'-'fiscal year'. Example: 10-89.
  • CROSS-REFERENCE:  2100^B
    1)= S ^GECS(2100,"B",$E(X,1,30),DA)=""
    2)= K ^GECS(2100,"B",$E(X,1,30),DA)
    This is a standard VA FileMan "B" cross reference.
.1 READY FOR BATCHING TRANS;1 SET
  • 'Y' FOR YES;

  • LAST EDITED:  OCT 24, 1988
  • DESCRIPTION:  
    This field is used internally by the Generic Code Sheet Package to indicate if a code sheet is ready for batching.
  • CROSS-REFERENCE:  2100^AC
    1)= S ^GECS(2100,"AC",$E(X,1,30),DA)=""
    2)= K ^GECS(2100,"AC",$E(X,1,30),DA)
    This cross reference is used to sort the code sheets which are ready for batching. When code sheets are batched, this cross reference is used to select the code sheets to batch.
.15 READY FOR TRANSMISSION TRANS;2 SET
  • 'Y' FOR YES;

  • LAST EDITED:  OCT 24, 1988
  • DESCRIPTION:  
    This field is used internally by the Generic Code Sheet Package to indicate if a code sheet is ready for transmission.
  • CROSS-REFERENCE:  2100^AE
    1)= S ^GECS(2100,"AE",$E(X,1,30),DA)=""
    2)= K ^GECS(2100,"AE",$E(X,1,30),DA)
    This cross reference is used to sort the code sheets which are ready for transmission. After the code sheet is batched, the ready for transmission flag will be set to yes.
    The cross reference is used by VA FileMan in the GECS READY FOR TRANSMISSION sort template.
.6 SCHEDULED TRANSMISSION DATE TRANS;7 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 07, 1989
  • DESCRIPTION:  
    The date this code sheet is scheduled for transmission. This field is checked against the date when batching code sheets.
.8 BATCH NUMBER TRANS;9 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<10) X I $D(X) K:$O(^GECS(2101.3,"B",X,0))="" X
  • LAST EDITED:  FEB 02, 1989
  • HELP-PROMPT:  ANSWER MUST BE 10-20 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field stores the batch number given to the code sheet.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2100^AB
    1)= S ^GECS(2100,"AB",$E(X,1,30),DA)=""
    2)= K ^GECS(2100,"AB",$E(X,1,30),DA)
    This cross reference is used to sort the code sheets by batch number. When the code sheets are batched, the batch number field is populated. The transmission of the batch uses the AB cross reference to select the code
    sheets which should be transmitted in the batch.
.85 STACK DOCUMENT TRANS;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  DEC 15, 1993
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    This field is used to store the stack document which was used for transmitting the code sheet. This field is used internally by the Generic Code Sheet Package for informational purposes.
.9 BATCH PRIORITY TRANS;10 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>6)!(X<2)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 09, 1990
  • HELP-PROMPT:  Type a Number between 2 and 6, 0 Decimal Digits
  • DESCRIPTION:  
    The priority of the code sheet in a batch. A low priority will be transmitted first.
.95 PREPARED BY TRANS;12 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  DEC 13, 1993
  • DESCRIPTION:  
    This field is used to store the user who created the code sheet.
1 SYSTEM IDENTIFIER 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  JAN 13, 1989
  • HELP-PROMPT:  ANSWER MUST BE 3 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    The system identifier indicates the 'code sheet system identifier' from file 2101.1 GENERIC CODE SHEET BATCH TYPE.
2 BATCH TYPE 0;3 POINTER TO GENERIC CODE SHEET BATCH TYPE FILE (#2101.1)
************************REQUIRED FIELD************************
GENERIC CODE SHEET BATCH TYPE(#2101.1)

  • LAST EDITED:  AUG 16, 1990
  • DESCRIPTION:  
    This field is used to store the batch type from the batch type file 2101.1. When code sheets are batched, this field is used to group code sheets by batch type.
5 STATION NUMBER 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<3) X
  • LAST EDITED:  APR 06, 1990
  • HELP-PROMPT:  Answer must be 3-4 characters in length.
  • DESCRIPTION:  
    This field is used to store the station number from the INSTITUTION file used to create the code sheet.
6 SUFFIX 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2 X Q:'$D(X) I $D(^GECS(2100,DA,0)) K:'$D(^DIC(4,"D",$P($G(^GECS(2100,DA,0)),"^",6)_X)) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,2)_Y
  • LAST EDITED:  JAN 09, 1996
  • HELP-PROMPT:  ANSWER MUST BE 0-2 CHARACTERS FOR STATION NUMBER SUFFIX
  • DESCRIPTION:  
    This field is used to store the station suffix from the INSTITUTION file used to create the code sheet.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
7 TRANSACTION TYPE/SEGMENT 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<2) X
  • LAST EDITED:  OCT 24, 1988
  • HELP-PROMPT:  ANSWER MUST BE 2-6 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    The transaction type/segment type of this code sheet (found in file 2101.2 GENERIC CODE SHEET TRANSACTION TYPE/SEGEMENT).
9 DATE CREATED 0;10 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 13, 1993
  • DESCRIPTION:  
    This field is used to store the date the code sheet was created. It is used internally by the Generic Code Sheet package for purging code sheets.
9.01 CREATED BY 0;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  NOV 03, 1993
  • DESCRIPTION:  
    This field is used to store the user who created the code sheet.
9.1 AMIS MONTH/YEAR 0;9 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E",%DT(0)="-NOW" D ^%DT K %DT S X=Y K:Y<1 X I $D(X) K:'+$E(X,4,5) X I $D(X) S X=$E(X,1,5)_"00"
  • LAST EDITED:  SEP 21, 1989
  • DESCRIPTION:  
    This field is used to store the AMIS month and year. For AMIS code sheets, the AMIS MONTH/YEAR will be asked automatically by the Generic Code Sheet Package.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
10 EDIT TEMPLATE NAME 0;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  AUG 16, 1990
  • HELP-PROMPT:  Answer must be 2-30 characters in length.
  • DESCRIPTION:  
    This field is used to store the name of the input template from the code sheet segment file 2101.2 which was used when creating the code sheet.
50 CODE CODE;0 Multiple #2100.01 2100.01

  • DESCRIPTION:  
    This field is used to store the generated code sheet which will be transmitted.
51 KEYPUNCH CODE SHEET KEY;0 WORD-PROCESSING #2100.051

  • DESCRIPTION:  
    The field used for input into a keypunch code sheet. The user may use this field to directly input a code sheet (via a word processing field).
  • LAST EDITED:  JAN 11, 1989
  • DESCRIPTION:  
    The field used for input into a keypunch code sheet. The user may use this field to directly input a code sheet (via a word processing field).
52.1 SEG. START CHAR. 52;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2) X
  • LAST EDITED:  JUN 12, 1989
  • HELP-PROMPT:  ANSWER MUST BE 2 CHARACTERS IN LENGTH
52.2 VERSION NO. 52;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  JUN 12, 1989
  • HELP-PROMPT:  ANSWER MUST BE 1 CHARACTER IN LENGTH
52.3 DEPT. CODE 52;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  JUN 12, 1989
  • HELP-PROMPT:  ANSWER MUST BE 1 CHARACTER IN LENGTH
52.4 SEG. MODIFIER 52;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y="" Y=" "
  • LAST EDITED:  JUN 29, 1990
  • HELP-PROMPT:  ANSWER MUST BE 1 CHARACTER IN LENGTH
53.001 001-3 CHAR 53;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.002 002-3 CHAR 53;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.003 003-3 CHAR 53;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.004 004-3 CHAR 53;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.005 005-3 CHAR 53;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.006 006-3 CHAR 53;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.007 007-3 CHAR 53;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.008 008-3 CHAR 53;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.009 009-3 CHAR 53;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.01 010-3 CHAR 53;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.011 011-3 CHAR 53;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.012 012-3 CHAR 53;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.013 013-3 CHAR 53;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.014 014-3 CHAR 53;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.015 015-3 CHAR 53;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.016 016-3 CHAR 53;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.017 017-3 CHAR 53;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.018 018-3 CHAR 53;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.019 019-3 CHAR 53;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.02 020-3 CHAR 53;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.021 021-3 CHAR 53;21 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.022 022-3 CHAR 53;22 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.023 023-3 CHAR 53;23 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.024 024-3 CHAR 53;24 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.025 025-3 CHAR 53;25 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.026 026-3 CHAR 53;26 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.027 027-3 CHAR 53;27 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.028 028-3 CHAR 53;28 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.029 029-3 CHAR 53;29 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.03 030-3 CHAR 53;30 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.031 031-3 CHAR 53;31 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.032 032-3 CHAR 53;32 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.033 033-3 CHAR 53;33 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.034 034-3 CHAR 53;34 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.035 035-3 CHAR 53;35 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.036 036-3 CHAR 53;36 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.037 037-3 CHAR 53;37 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.038 038-3 CHAR 53;38 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.039 039-3 CHAR 53;39 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.04 040-3 CHAR 53;40 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.041 041-3 CHAR 53;41 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.042 042-3 CHAR 53;42 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.043 043-3 CHAR 53;43 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.044 044-3 CHAR 53;44 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.045 045-3 CHAR 53;45 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.046 046-3 CHAR 53;46 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.047 047-3 CHAR 53;47 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.048 048-3 CHAR 53;48 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.049 049-3 CHAR 53;49 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.05 050-3 CHAR 53;50 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.051 051-3 CHAR 53;51 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.052 052-3 CHAR 53;52 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.053 053-3 CHAR 53;53 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.054 054-3 CHAR 53;54 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.055 055-3 CHAR 53;55 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.056 056-3 CHAR 53;56 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.057 057-3 CHAR 53;57 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.058 058-3 CHAR 53;58 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.059 059-3 CHAR 53;59 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.06 060-3 CHAR 53;60 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.061 061-3 CHAR 53;61 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.062 062-3 CHAR 53;62 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.063 063-3 CHAR 53A;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.064 064-3 CHAR 53A;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.065 065-3 CHAR 53A;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.066 066-3 CHAR 53A;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.067 067-3 CHAR 53A;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.068 068-3 CHAR 53A;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.069 069-3 CHAR 53A;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.07 070-3 CHAR 53A;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.071 071-3 CHAR 53A;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.072 072-3 CHAR 53A;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.073 073-3 CHAR 53A;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.074 074-3 CHAR 53A;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.075 075-3 CHAR 53A;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.076 076-3 CHAR 53A;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.077 077-3 CHAR 53A;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.078 078-3 CHAR 53A;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.079 079-3 CHAR 53A;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.08 080-3 CHAR 53A;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.081 081-3 CHAR 53A;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.082 082-3 CHAR 53A;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.083 083-3 CHAR 53A;21 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.084 084-3 CHAR 53A;22 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.085 085-3 CHAR 53A;23 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.086 086-3 CHAR 53A;24 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.087 087-3 CHAR 53A;25 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.088 088-3 CHAR 53A;26 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.089 089-3 CHAR 53A;27 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.09 090-3 CHAR 53A;28 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.091 091-3 CHAR 53A;29 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.092 092-3 CHAR 53A;30 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.093 093-3 CHAR 53A;31 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.094 094-3 CHAR 53A;32 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53.095 095-3 CHAR 53A;33 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.001 001-4 CHAR 54;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.002 002-4 CHAR 54;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.003 003-4 CHAR 54;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.004 004-4 CHAR 54;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.005 005-4 CHAR 54;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.006 006-4 CHAR 54;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.007 007-4 CHAR 54;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.008 008-4 CHAR 54;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.009 009-4 CHAR 54;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.01 010-4 CHAR 54;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.011 011-4 CHAR 54;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.012 012-4 CHAR 54;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.013 013-4 CHAR 54;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.014 014-4 CHAR 54;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.015 015-4 CHAR 54;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.016 016-4 CHAR 54;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.017 017-4 CHAR 54;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.018 018-4 CHAR 54;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.019 019-4 CHAR 54;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.02 020-4 CHAR 54;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.021 021-4 CHAR 54;21 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.022 022-4 CHAR 54;22 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.023 023-4 CHAR 54;23 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.024 024-4 CHAR 54;24 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.025 025-4 CHAR 54;25 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.026 026-4 CHAR 54;26 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.027 027-4 CHAR 54;27 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.028 028-4 CHAR 54;28 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.029 029-4 CHAR 54;29 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.03 030-4 CHAR 54;30 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.031 031-4 CHAR 54;31 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.032 032-4 CHAR 54;32 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.033 033-4 CHAR 54;33 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.034 034-4 CHAR 54;34 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.035 035-4 CHAR 54;35 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.036 036-4 CHAR 54;36 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.037 037-4 CHAR 54;37 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.038 038-4 CHAR 54;38 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.039 039-4 CHAR 54;39 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.04 040-4 CHAR 54;40 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.041 041-4 CHAR 54;41 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.042 042-4 CHAR 54;42 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.043 043-4 CHAR 54;43 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.044 044-4 CHAR 54;44 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.045 045-4 CHAR 54;45 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.046 046-4 CHAR 54;46 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.047 047-4 CHAR 54;47 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.048 048-4 CHAR 54;48 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.049 049-4 CHAR 54;49 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.05 050-4 CHAR 54;50 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.051 051-4 CHAR 54A;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.052 052-4 CHAR 54A;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.053 053-4 CHAR 54A;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.054 054-4 CHAR 54A;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.055 055-4 CHAR 54A;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.056 056-4 CHAR 54A;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.057 057-4 CHAR 54A;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.058 058-4 CHAR 54A;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.059 059-4 CHAR 54A;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.06 060-4 CHAR 54A;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.061 061-4 CHAR 54A;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.062 062-4 CHAR 54A;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.063 063-4 CHAR 54A;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.064 064-4 CHAR 54A;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.065 065-4 CHAR 54A;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.066 066-4 CHAR 54A;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.067 067-4 CHAR 54A;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.068 068-4 CHAR 54A;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.069 069-4 CHAR 54A;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.07 070-4 CHAR 54A;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.071 071-4 CHAR 54A;21 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.072 072-4 CHAR 54A;22 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.073 073-4 CHAR 54A;23 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.074 074-4 CHAR 54A;24 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.075 075-4 CHAR 54A;25 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.076 076-4 CHAR 54A;26 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.077 077-4 CHAR 54A;27 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.078 078-4 CHAR 54A;28 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.079 079-4 CHAR 54A;29 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.08 080-4 CHAR 54A;30 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.081 081-4 CHAR 54A;31 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.082 082-4 CHAR 54A;32 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.083 083-4 CHAR 54A;33 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.084 084-4 CHAR 54A;34 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.085 085-4 CHAR 54A;35 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.086 086-4 CHAR 54A;36 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.087 087-4 CHAR 54A;37 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.088 088-4 CHAR 54A;38 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.089 089-4 CHAR 54A;39 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.09 090-4 CHAR 54A;40 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.091 091-4 CHAR 54A;41 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.092 092-4 CHAR 54A;42 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.093 093-4 CHAR 54A;43 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.094 094-4 CHAR 54A;44 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54.095 095-4 CHAR 54A;45 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 9999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.001 001-5 CHAR 55;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.002 002-5 CHAR 55;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.003 003-5 CHAR 55;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.004 004-5 CHAR 55;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.005 005-5 CHAR 55;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.006 006-5 CHAR 55;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.007 007-5 CHAR 55;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.008 008-5 CHAR 55;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.009 009-5 CHAR 55;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.01 010-5 CHAR 55;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.011 011-5 CHAR 55;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.012 012-5 CHAR 55;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.013 013-5 CHAR 55;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.014 014-5 CHAR 55;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.015 015-5 CHAR 55;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.016 016-5 CHAR 55;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.017 017-5 CHAR 55;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.018 018-5 CHAR 55;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.019 019-5 CHAR 55;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.02 020-5 CHAR 55;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.021 021-5 CHAR 55;21 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.022 022-5 CHAR 55;22 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.023 023-5 CHAR 55;23 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.024 024-5 CHAR 55;24 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.025 025-5 CHAR 55;25 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.026 026-5 CHAR 55;26 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.027 027-5 CHAR 55;27 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.028 028-5 CHAR 55;28 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.029 029-5 CHAR 55;29 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.03 030-5 CHAR 55;30 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.031 031-5 CHAR 55;31 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.032 032-5 CHAR 55;32 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.033 033-5 CHAR 55;33 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.034 034-5 CHAR 55;34 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.035 035-5 CHAR 55;35 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.036 036-5 CHAR 55;36 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.037 037-5 CHAR 55;37 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.038 038-5 CHAR 55;38 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.039 039-5 CHAR 55;39 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.04 040-5 CHAR 55;40 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.041 041-5 CHAR 55;41 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.042 042-5 CHAR 55;42 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.043 043-5 CHAR 55A;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.044 044-5 CHAR 55A;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.045 045-5 CHAR 55A;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.046 046-5 CHAR 55A;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.047 047-5 CHAR 55A;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.048 048-5 CHAR 55A;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.049 049-5 CHAR 55A;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.05 050-5 CHAR 55A;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.051 051-5 CHAR 55A;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.052 052-5 CHAR 55A;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.053 053-5 CHAR 55A;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.054 054-5 CHAR 55A;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.055 055-5 CHAR 55A;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.056 056-5 CHAR 55A;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.057 057-5 CHAR 55A;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.058 058-5 CHAR 55A;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.059 059-5 CHAR 55A;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.06 060-5 CHAR 55A;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.061 061-5 CHAR 55A;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.062 062-5 CHAR 55A;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.063 063-5 CHAR 55A;21 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.064 064-5 CHAR 55A;22 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.065 065-5 CHAR 55A;23 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.066 066-5 CHAR 55A;24 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.067 067-5 CHAR 55A;25 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.068 068-5 CHAR 55A;26 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.069 069-5 CHAR 55A;27 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.07 070-5 CHAR 55A;28 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.071 071-5 CHAR 55A;29 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.072 072-5 CHAR 55A;30 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.073 073-5 CHAR 55A;31 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.074 074-5 CHAR 55A;32 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.075 075-5 CHAR 55A;33 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.076 076-5 CHAR 55A;34 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.077 077-5 CHAR 55A;35 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.078 078-5 CHAR 55A;36 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.079 079-5 CHAR 55A;37 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.08 080-5 CHAR 55A;38 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.001 001-6 CHAR 56;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.002 002-6 CHAR 56;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.003 003-6 CHAR 56;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.004 004-6 CHAR 56;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.005 005-6 CHAR 56;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.006 006-6 CHAR 56;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.007 007-6 CHAR 56;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.008 008-6 CHAR 56;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.009 009-6 CHAR 56;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.01 010-6 CHAR 56;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.011 011-6 CHAR 56;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.012 012-6 CHAR 56;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.013 013-6 CHAR 56;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.014 014-6 CHAR 56;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.015 015-6 CHAR 56;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.016 016-6 CHAR 56;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.017 017-6 CHAR 56;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.018 018-6 CHAR 56;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.019 019-6 CHAR 56;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.02 020-6 CHAR 56;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.021 021-6 CHAR 56;21 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.022 022-6 CHAR 56;22 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.023 023-6 CHAR 56;23 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.024 024-6 CHAR 56;24 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.025 025-6 CHAR 56;25 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.026 026-6 CHAR 56;26 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.027 027-6 CHAR 56;27 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.028 028-6 CHAR 56;28 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.029 029-6 CHAR 56;29 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.03 030-6 CHAR 56;30 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.031 031-6 CHAR 56;31 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.032 032-6 CHAR 56;32 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.033 033-6 CHAR 56;33 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.034 034-6 CHAR 56;34 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.035 035-6 CHAR 56;35 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.036 036-6 CHAR 56A;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.037 037-6 CHAR 56A;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.038 038-6 CHAR 56A;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.039 039-6 CHAR 56A;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.04 040-6 CHAR 56A;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.041 041-6 CHAR 56A;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.042 042-6 CHAR 56A;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.043 043-6 CHAR 56A;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.044 044-6 CHAR 56A;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.045 045-6 CHAR 56A;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.046 046-6 CHAR 56A;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.047 047-6 CHAR 56A;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.048 048-6 CHAR 56A;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.049 049-6 CHAR 56A;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.05 050-6 CHAR 56A;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.051 051-6 CHAR 56A;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.052 052-6 CHAR 56A;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.053 053-6 CHAR 56A;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.054 054-6 CHAR 56A;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.055 055-6 CHAR 56A;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.056 056-6 CHAR 56A;21 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.057 057-6 CHAR 56A;22 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.058 058-6 CHAR 56A;23 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.059 059-6 CHAR 56A;24 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.06 060-6 CHAR 56A;25 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.061 061-6 CHAR 56A;26 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.062 062-6 CHAR 56A;27 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.063 063-6 CHAR 56A;28 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.064 064-6 CHAR 56A;29 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.065 065-6 CHAR 56A;30 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56.066 066-6 CHAR 56A;31 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.001 001-2 CHAR 57;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.002 002-2 CHAR 57;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.003 003-2 CHAR 57;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.004 004-2 CHAR 57;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.005 005-2 CHAR 57;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.006 006-2 CHAR 57;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.007 007-2 CHAR 57;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.008 008-2 CHAR 57;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.009 009-2 CHAR 57;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.01 010-2 CHAR 57;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.011 011-2 CHAR 57;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.012 012-2 CHAR 57;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.013 013-2 CHAR 57;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.014 014-2 CHAR 57;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.015 015-2 CHAR 57;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.016 016-2 CHAR 57;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.017 017-2 CHAR 57;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.018 018-2 CHAR 57;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.019 019-2 CHAR 57;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.02 020-2 CHAR 57;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.021 021-2 CHAR 57;21 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.022 022-2 CHAR 57;22 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.023 023-2 CHAR 57;23 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.024 024-2 CHAR 57;24 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.025 025-2 CHAR 57;25 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.026 026-2 CHAR 57;26 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.027 027-2 CHAR 57;27 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.028 028-2 CHAR 57;28 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.029 029-2 CHAR 57;29 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.03 030-2 CHAR 57;30 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.031 031-2 CHAR 57;31 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.032 032-2 CHAR 57;32 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.033 033-2 CHAR 57;33 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.034 034-2 CHAR 57;34 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.035 035-2 CHAR 57;35 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.036 036-2 CHAR 57;36 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.037 037-2 CHAR 57;37 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.038 038-2 CHAR 57;38 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.039 039-2 CHAR 57;39 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.04 040-2 CHAR 57;40 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.041 041-2 CHAR 57;41 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.042 042-2 CHAR 57;42 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.043 043-2 CHAR 57;43 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.044 044-2 CHAR 57;44 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.045 045-2 CHAR 57;45 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.046 046-2 CHAR 57;46 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.047 047-2 CHAR 57;47 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.048 048-2 CHAR 57;48 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.049 049-2 CHAR 57;49 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.05 050-2 CHAR 57;50 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.051 051-2 CHAR 57;51 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.052 052-2 CHAR 57;52 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.053 053-2 CHAR 57;53 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.054 054-2 CHAR 57;54 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.055 055-2 CHAR 57;55 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.056 056-2 CHAR 57;56 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.057 057-2 CHAR 57;57 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.058 058-2 CHAR 57;58 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.059 059-2 CHAR 57;59 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.06 060-2 CHAR 57;60 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.061 061-2 CHAR 57;61 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.062 062-2 CHAR 57;62 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.063 063-2 CHAR 57;63 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.064 064-2 CHAR 57;64 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.065 065-2 CHAR 57;65 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.066 066-2 CHAR 57;66 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.067 067-2 CHAR 57;67 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.068 068-2 CHAR 57;68 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.069 069-2 CHAR 57;69 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.07 070-2 CHAR 57;70 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.071 071-2 CHAR 57;71 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.072 072-2 CHAR 57;72 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.073 073-2 CHAR 57;73 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.074 074-2 CHAR 57;74 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.075 075-2 CHAR 57;75 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.076 076-2 CHAR 57;76 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.077 077-2 CHAR 57;77 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.078 078-2 CHAR 57;78 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.079 079-2 CHAR 57;79 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.08 080-2 CHAR 57;80 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.081 081-2 CHAR 57A;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.082 082-2 CHAR 57A;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.083 083-2 CHAR 57A;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.084 084-2 CHAR 57A;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.085 085-2 CHAR 57A;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.086 086-2 CHAR 57A;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.087 087-2 CHAR 57A;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  SEP 18, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.088 088-2 CHAR 57A;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  SEP 18, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.089 089-2 CHAR 57A;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.09 090-2 CHAR 57A;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.091 091-2 CHAR 57A;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.092 092-2 CHAR 57A;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.093 093-2 CHAR 57A;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.094 094-2 CHAR 57A;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
57.095 095-2 CHAR 57A;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number between 1 and 99.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
58.014 014-7 CHAR 58;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<1)!'(X?1.7N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 9999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
58.039 039-7 CHAR 58;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<1)!'(X?1.7N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 9999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
59.094 094-8 CHAR 59;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<1)!'(X?1.8N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000000",$L(Y)+1,8)_Y
  • LAST EDITED:  MAY 09, 1990
  • HELP-PROMPT:  Enter a whole number from 1 to 99999999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
99 AUTOMATIC TERMINATOR 0;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X?1"$") X
  • LAST EDITED:  OCT 19, 1988
  • HELP-PROMPT:  ANSWER MUST BE 1 CHARACTER IN LENGTH
  • DESCRIPTION:  
    The terminating character used to indicate the end of the code sheet.
200 FACILITY NUMBER VOLUVOL2;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<3)!'(X?3N!(X?3N1U)) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,4-$L(Y))
  • LAST EDITED:  JUL 12, 1990
  • HELP-PROMPT:  ANSWER MUST BE 3-4 CHARACTERS IN LENGTH
201 PSEUDO INDICATOR VOLUVOL2;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X?1"P") X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,1-$L(Y))
  • LAST EDITED:  JUL 12, 1990
  • HELP-PROMPT:  ENTER A 'P' TO INDICATE PSEUDO SSN
202 SOCIAL SECURITY NUMBER VOLUVOL2;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<9)!'(X?9N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,9-$L(Y))
  • LAST EDITED:  JUL 12, 1990
  • HELP-PROMPT:  ENTER SSN IN THE FOLLOWING FORMAT ie. 123456789
203 STREET ADDRESS VOLUVOL2;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>19!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,19-$L(Y))
  • LAST EDITED:  JUL 12, 1990
  • HELP-PROMPT:  ANSWER MUST BE 1-19 CHARACTERS IN LENGTH
204 CITY VOLUVOL2;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,15-$L(Y))
  • LAST EDITED:  JUL 12, 1990
  • HELP-PROMPT:  ANSWER MUST BE 1-15 CHARACTERS IN LENGTH
205 STATE VOLUVOL2;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2U) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,2-$L(Y))
  • LAST EDITED:  JUL 12, 1990
  • HELP-PROMPT:  ENTER STATE ABBREVIATION ie. PENNSYLVANIA = PA
206 ZIP CODE VOLUVOL2;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<5)!'(X?5N!(X?9N)) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,9-$L(Y))
  • LAST EDITED:  JUL 12, 1990
  • HELP-PROMPT:  ENTER WITH 5 DIGIT ZIP OR 9 DIGIT ZIP (WITHOUT DASH)
207 SEX VOLUVOL2;8 SET
  • 'M' FOR MALE;
  • 'B' FOR BOY;
  • 'F' FOR FEMALE;
  • 'G' FOR GIRL;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,1-$L(Y))
  • LAST EDITED:  JUL 12, 1990
208 BIRTH DATE VOLUVOL2;9 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • OUTPUT TRANSFORM:  S %=Y D DD^%DT I $D(GECSOT) S Y=%,Y=$E(Y,4,5)_$E(Y,2,3)_$E(" ",1,4-$L(Y))
  • LAST EDITED:  JUL 06, 1998
  • HELP-PROMPT:  ENTER STANDARD FILEMANAGER DATE.
209 ENTRY DATE VOLUVOL2;10 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • OUTPUT TRANSFORM:  S %=Y D DD^%DT I $D(GECSOT) S Y=%,Y=$E(Y,4,5)_$E(Y,2,3)_$E(" ",1,4-$L(Y))
  • LAST EDITED:  JUL 06, 1998
  • HELP-PROMPT:  ENTER STANDARD FIMEMANAGER DATE. COMPUTER WILL CONVERT FOR CODE SHEET.
210 TERMINATION DATE VOLUVOL2;11 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • OUTPUT TRANSFORM:  I $D(GECSOT),Y]"" S Y=" "_$E(Y,4,5)_$E(Y,2,3)
  • LAST EDITED:  NOV 07, 1990
  • HELP-PROMPT:  ENTER STANDARD FILEMANAGER DATE. COMPUTER WILL CONVERT FOR CODE SHEET.
211 COMBINATION 1 VOLUVOL2;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<7)!'(X?3N1E3N!(X?3N1E3N1U)!(X?8"*")) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,8-$L(Y))
  • LAST EDITED:  JAN 30, 1989
  • HELP-PROMPT:  ANSWER MUST BE 7-8 CHARACTERS IN LENGTH
212 COMBINATION 2 VOLUVOL2;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<7)!'(X?3N1E3N!(X?3N1E3N1U)!(X?8"*")) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,8-$L(Y))
  • LAST EDITED:  JAN 30, 1989
  • HELP-PROMPT:  ANSWER MUST BE 7-8 CHARACTERS IN LENGTH
213 COMBINATION 3 VOLUVOL2;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<7)!'(X?3N1E3N!(X?3N1E3N1U)!(X?8"*")) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,8-$L(Y))
  • LAST EDITED:  JAN 30, 1989
  • HELP-PROMPT:  ANSWER MUST BE 7-8 CHARACTERS IN LENGTH
214 COMBINATION 4 VOLUVOL2;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<7)!'(X?3N1E3N!(X?3N1E3N1U)!(X?8"*")) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,8-$L(Y))
  • LAST EDITED:  JAN 30, 1989
  • HELP-PROMPT:  ANSWER MUST BE 7-8 CHARACTERS IN LENGTH
215 COMBINATION 5 VOLUVOL2;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<7)!'(X?3N1E3N!(X?3N1E3N1U)!(X?8"*")) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,8-$L(Y))
  • LAST EDITED:  JAN 30, 1989
  • HELP-PROMPT:  ANSWER MUST BE 7-8 CHARACTERS IN LENGTH
216 COMBINATION 6 VOLUVOL2;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<7)!'(X?3N1E3N!(X?3N1E3N1U)!(X?8"*")) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,8-$L(Y))
  • LAST EDITED:  JAN 30, 1989
  • HELP-PROMPT:  ANSWER MUST BE 7-8 CHARACTERS IN LENGTH
217 YEARS OF SERVICE VOLUVOL2;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,2)_Y
  • LAST EDITED:  NOV 05, 1990
  • HELP-PROMPT:  ANSWER MUST BE 1-2 CHARACTERS IN LENGTH
218 TOTAL CUM HOURS VOLUVOL2;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S(Y]"":$E("00000",$L(Y)+1,5)_Y,1:Y_$E(" ",1,5-$L(Y)))
  • LAST EDITED:  JUL 12, 1990
  • HELP-PROMPT:  ANSWER MUST BE 1-5 CHARACTERS IN LENGTH
219 LAST AWARD HOURS VOLUVOL2;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<2)!'(X?2.5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S(Y]"":$E("00000",$L(Y)+1,5)_Y,1:Y_$E(" ",1,5-$L(Y)))
  • LAST EDITED:  MAR 07, 1990
  • HELP-PROMPT:  ANSWER MUST BE 2-5 CHARACTERS IN LENGTH
220 LAST AWARD MO/YR VOLUVOL2;21 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<3)!'(X?3.4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S(Y]"":$E("0000",$L(Y)+1,4)_Y,1:Y_$E(" ",1,4-$L(Y)))
  • LAST EDITED:  NOV 05, 1990
  • HELP-PROMPT:  ENTER MONTH YEAR OF AWARD WITHOUT DASH. ie. 189 FOR JAN 1989
221 LAST NAME VOLUVOL2;22 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>14!($L(X)<3) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,14-$L(Y))
  • LAST EDITED:  JUL 12, 1990
  • HELP-PROMPT:  ANSWER MUST BE 3-14 CHARACTERS IN LENGTH
222 FIRST NAME VOLUVOL2;23 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<3) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,10-$L(Y))
  • LAST EDITED:  JUL 12, 1990
  • HELP-PROMPT:  ANSWER MUST BE 3-10 CHARACTERS IN LENGTH
223 TERMINATION STARS VOLUVOL2;24 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6"*") X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",1,58-$L(Y))_Y
  • LAST EDITED:  JUL 12, 1990
  • HELP-PROMPT:  ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
224 C&A STATION NUMBER PRCCCA2;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<3)!'(X?3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,4)_Y
  • LAST EDITED:  OCT 22, 1990
  • HELP-PROMPT:  Enter 3 Digit station number
225 IDENTIFICATION NUMBER PRCCCA2;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<3) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,9-$L(Y))
  • LAST EDITED:  JUL 12, 1990
  • HELP-PROMPT:  Enter Participants SSN or Employee Identification Number (corporation tax number)
226 NAME CODE PRCCCA2;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  APR 11, 1990
  • HELP-PROMPT:  Enter Participants name code. First initial of first name followed by a space followed by first initial of middle name. if no middle name leave blank. ie C (space) T or C (space) (space)
227 DAY NUMBER PRCCCA2;4 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUL 12, 1990
  • HELP-PROMPT:  Enter Julian day number
228 TRANS TYPE PRCCCA2;5 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X="D1"!(X="D2")!(X="D3")!(X="DB")) X
  • LAST EDITED:  APR 12, 1990
  • HELP-PROMPT:  Enter D1, D2, D3 or DB.
229 ACTION PRCCCA2;6 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X?1"C"!(X?1"R")!(X?1"T")!(X?1"A")) X
  • LAST EDITED:  APR 11, 1990
  • HELP-PROMPT:  Enter Action Code: A=Accession, C=Change, R=Renewal or T=Termination
230 DECIMAL SUFFIX PRCCCA2;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3)!'(X?3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y="" Y=Y_$E(" ",1,3-$L(Y))
  • LAST EDITED:  JUL 12, 1990
  • HELP-PROMPT:  Enter 3 digit suffix assigned by the Austin DPC.
231 PARTICIPANT'S NAME PRCCCA2;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>17!($L(X)<4)!'(X?4.17A!(X?1A1" "1.15A)) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,17-$L(Y))
  • LAST EDITED:  OCT 30, 1990
  • HELP-PROMPT:  Answer must be 4-17 characters in length.
232 C&A TITLE PRCCCA2;9 SET
  • '1' FOR MD;
  • '2' FOR DPM;
  • '3' FOR DO;
  • '4' FOR PH.D;
  • '5' FOR DDS;
  • '6' FOR DVM;
  • '7' FOR RN;
  • '8' FOR OD;
  • '9' FOR DMD;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y="" Y=" "
  • LAST EDITED:  OCT 30, 1990
233 C&A TYPE PRCCCA2;10 SET
  • 'C' FOR CONSULTANT;
  • 'A' FOR ATTENDING;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y="" Y=" "
  • LAST EDITED:  OCT 30, 1990
234 DATE OF APPOINTMENT PRCCCA2;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5)!'(X?5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,5)_Y
  • LAST EDITED:  OCT 30, 1990
  • HELP-PROMPT:  Answer must be 5 characters in length.
235 OCCUPATION SERIES PRCCCA2;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<8) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,8)_Y
  • LAST EDITED:  OCT 30, 1990
  • HELP-PROMPT:  Answer must be 8 characters in length.
236 ADDRESS LINE 1 PRCCCA2;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>23!($L(X)<2) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,23-$L(Y))
  • LAST EDITED:  JUL 12, 1990
  • HELP-PROMPT:  Answer must be 2-23 characters in length.
237 ADDRESS LINE 2 PRCCCA2;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>23!($L(X)<2) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,23-$L(Y))
  • LAST EDITED:  JUL 12, 1990
  • HELP-PROMPT:  Answer must be 2-23 characters in length.
238 C&A CITY PRCCCA2;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>13!($L(X)<3) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,13-$L(Y))
  • LAST EDITED:  OCT 30, 1990
  • HELP-PROMPT:  Answer must be 3-13 characters in length.
239 C&A STATE PRCCCA2;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2A) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,2)_Y
  • LAST EDITED:  OCT 30, 1990
  • HELP-PROMPT:  Answer must be 2 characters in length.
240 C&A ZIP CODE PRCCCA2;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5)!'(X?5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,5)_Y
  • LAST EDITED:  OCT 30, 1990
  • HELP-PROMPT:  Answer must be 5 characters in length.
241 COST CENTER PRCCCA2;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<6)!'(X?4N1"00") X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S(Y]"":Y_"00",1:$E(" ",$L(Y)+1,6)),Y=$E(Y,1,6)
  • LAST EDITED:  NOV 06, 1990
  • HELP-PROMPT:  Answer must be 6 characters in length.
242 SUB ACCOUNT PRCCCA2;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>2576)!(X<2576)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  NOV 06, 1990
  • HELP-PROMPT:  Type a Number between 2576 and 2576, 0 Decimal Digits
243 RESERVED PRCCCA2;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<6) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,6-$L(Y))
  • LAST EDITED:  JUL 17, 1990
  • HELP-PROMPT:  Answer must be 6 characters in length.
244 NUMBER OF VISITS PRCCCA2;21 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y I +Y=0,$D(^GECS(2100,DA,"PRCCCA2")),$P(^("PRCCCA2"),U,6)["R" S Y=" "
  • LAST EDITED:  SEP 11, 1991
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
245 AMOUNT-DOLLARS/CENTS PRCCCA2;22 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99900)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y I +Y=0,$D(^GECS(2100,DA,"PRCCCA2")),$P(^("PRCCCA2"),U,6)["R" S Y=" "
  • LAST EDITED:  SEP 11, 1991
  • HELP-PROMPT:  Enter dollar amount without decimal. ie 4500 for $45.00
246 PER DIEM-DOLLARS/CENTS PRCCCA2;23 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99900)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y I +Y=0,$D(^GECS(2100,DA,"PRCCCA2")),$P(^("PRCCCA2"),U,6)["R" S Y=" "
  • LAST EDITED:  SEP 11, 1991
  • HELP-PROMPT:  Enter dollar amount without decimal. ie 4500 for $45.00
247 ID NUMBER IDENTIFIER PRCCCA2;24 SET
  • '1' FOR SOCIAL SECURITY NUMBER;
  • '2' FOR EMPLOYEE IDENTIFICATION NUMBER;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S(Y]"":Y,1:" ")
  • LAST EDITED:  NOV 16, 1990
248 ID NUMBER CHANGE PRCCCA2;25 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<9) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,9-$L(Y))
  • LAST EDITED:  JUL 17, 1990
  • HELP-PROMPT:  Enter new ID number for participant. If ID number change is entered, ID Number Identifier field must be completed.
249 NO PAY PRCCCA2;26 SET
  • '0' FOR CHANGE FROM NO PAY TO PAY STATUS;
  • 'Y' FOR NO PAY VISITS AUTHORIZED;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S(Y="":" ",1:Y)
  • LAST EDITED:  NOV 06, 1990
250 DAY 1 PRCCCA2A;1 SET
  • 'X' FOR PAID;
  • 'W' FOR WITHOUT PAY;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,1-$L(Y))
  • LAST EDITED:  APR 30, 1990
  • HELP-PROMPT:  Enter X if PAID visit or W if WITHOUT PAY visit.
251 DAY 2 PRCCCA2A;2 SET
  • 'X' FOR PAID;
  • 'W' FOR WITHOUT PAY;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,1-$L(Y))
  • LAST EDITED:  APR 30, 1990
  • HELP-PROMPT:  Enter X if PAID visit or W if WITHOUT PAY visit.
252 DAY 3 PRCCCA2A;3 SET
  • 'X' FOR PAID;
  • 'W' FOR WITHOUT PAY;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,1-$L(Y))
  • LAST EDITED:  APR 30, 1990
  • HELP-PROMPT:  Enter X if PAID visit or W if WITHOUT PAY visit.
253 DAY 4 PRCCCA2A;4 SET
  • 'X' FOR PAID;
  • 'W' FOR WITHOUT PAY;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,1-$L(Y))
  • LAST EDITED:  APR 30, 1990
  • HELP-PROMPT:  Enter X if PAID visit or W if WITHOUT PAY visit.
254 DAY 5 PRCCCA2A;5 SET
  • 'X' FOR PAID;
  • 'W' FOR WITHOUT PAY;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,1-$L(Y))
  • LAST EDITED:  APR 30, 1990
  • HELP-PROMPT:  Enter X if PAID visit or W if WITHOUT PAY visit.
255 DAY 6 PRCCCA2A;6 SET
  • 'X' FOR PAID;
  • 'W' FOR WITHOUT PAY;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,1-$L(Y))
  • LAST EDITED:  APR 30, 1990
  • HELP-PROMPT:  Enter X if PAID visit or W if WITHOUT PAY visit.
256 DAY 7 PRCCCA2A;7 SET
  • 'X' FOR PAID;
  • 'W' FOR WITHOUT PAY;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,1-$L(Y))
  • LAST EDITED:  APR 30, 1990
  • HELP-PROMPT:  Enter X if PAID visit or W if WITHOUT PAY visit.
257 DAY 8 PRCCCA2A;8 SET
  • 'X' FOR PAID;
  • 'W' FOR WITHOUT PAY;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,1-$L(Y))
  • LAST EDITED:  APR 30, 1990
  • HELP-PROMPT:  Enter X if PAID visit or W if WITHOUT PAY visit.
258 DAY 9 PRCCCA2A;9 SET
  • 'X' FOR PAID;
  • 'W' FOR WITHOUT PAY;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,1-$L(Y))
  • LAST EDITED:  APR 30, 1990
  • HELP-PROMPT:  Enter X if PAID visit or W if WITHOUT PAY visit.
259 DAY 10 PRCCCA2A;10 SET
  • 'X' FOR PAID;
  • 'W' FOR WITHOUT PAY;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,1-$L(Y))
  • LAST EDITED:  APR 30, 1990
  • HELP-PROMPT:  Enter X if PAID visit or W if WITHOUT PAY visit.
260 DAY 11 PRCCCA2A;11 SET
  • 'X' FOR PAID;
  • 'W' FOR WITHOUT PAY;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,1-$L(Y))
  • LAST EDITED:  APR 30, 1990
  • HELP-PROMPT:  Enter X if PAID visit or W if WITHOUT PAY visit.
261 DAY 12 PRCCCA2A;12 SET
  • 'X' FOR PAID;
  • 'W' FOR WITHOUT PAY;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,1-$L(Y))
  • LAST EDITED:  APR 30, 1990
  • HELP-PROMPT:  Enter X if PAID visit or W if WITHOUT PAY visit.
262 DAY 13 PRCCCA2A;13 SET
  • 'X' FOR PAID;
  • 'W' FOR WITHOUT PAY;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,1-$L(Y))
  • LAST EDITED:  APR 30, 1990
  • HELP-PROMPT:  Enter X if PAID visit or W if WITHOUT PAY visit.
263 DAY 14 PRCCCA2A;14 SET
  • 'X' FOR PAID;
  • 'W' FOR WITHOUT PAY;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,1-$L(Y))
  • LAST EDITED:  APR 30, 1990
  • HELP-PROMPT:  Enter X if PAID visit or W if WITHOUT PAY visit.
264 DAY 15 PRCCCA2A;15 SET
  • 'X' FOR PAID;
  • 'W' FOR WITHOUT PAY;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,1-$L(Y))
  • LAST EDITED:  APR 30, 1990
  • HELP-PROMPT:  Enter X if PAID visit or W if WITHOUT PAY visit.
265 DAY 16 PRCCCA2A;16 SET
  • 'X' FOR PAID;
  • 'W' FOR WITHOUT PAY;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,1-$L(Y))
  • LAST EDITED:  APR 30, 1990
  • HELP-PROMPT:  Enter X if PAID visit or W if WITHOUT PAY visit.
266 DAY 17 PRCCCA2A;17 SET
  • 'X' FOR PAID;
  • 'W' FOR WITHOUT PAY;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,1-$L(Y))
  • LAST EDITED:  MAY 01, 1990
  • HELP-PROMPT:  Enter X if PAID visit or W if WITHOUT PAY visit.
267 DAY 18 PRCCCA2A;18 SET
  • 'X' FOR PAID;
  • 'W' FOR WITHOUT PAY;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,1-$L(Y))
  • LAST EDITED:  MAY 01, 1990
  • HELP-PROMPT:  Enter X if PAID visit or W if WITHOUT PAY visit.
268 DAY 19 PRCCCA2A;19 SET
  • 'X' FOR PAID;
  • 'W' FOR WITHOUT PAY;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,1-$L(Y))
  • LAST EDITED:  MAY 01, 1990
  • HELP-PROMPT:  Enter X if PAID visit or W if WITHOUT PAY visit.
269 DAY 20 PRCCCA2A;20 SET
  • 'X' FOR PAID;
  • 'W' FOR WITHOUT PAY;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,1-$L(Y))
  • LAST EDITED:  MAY 01, 1990
  • HELP-PROMPT:  Enter X if PAID visit or W if WITHOUT PAY visit.
270 DAY 21 PRCCCA2A;21 SET
  • 'X' FOR PAID;
  • 'W' FOR WITHOUT PAY;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,1-$L(Y))
  • LAST EDITED:  MAY 01, 1990
  • HELP-PROMPT:  Enter X if PAID visit or W if WITHOUT PAY visit.
271 DAY 22 PRCCCA2A;22 SET
  • 'X' FOR PAID;
  • 'W' FOR WITHOUT PAY;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,1-$L(Y))
  • LAST EDITED:  MAY 01, 1990
  • HELP-PROMPT:  Enter X if PAID visit or W if WITHOUT PAY visit.
272 DAY 23 PRCCCA2A;23 SET
  • 'X' FOR PAID;
  • 'W' FOR WITHOUT PAY;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,1-$L(Y))
  • LAST EDITED:  MAY 01, 1990
  • HELP-PROMPT:  Enter X if PAID visit or W if WITHOUT PAY visit.
273 DAY 24 PRCCCA2A;24 SET
  • 'X' FOR PAID;
  • 'W' FOR WITHOUT PAY;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,1-$L(Y))
  • LAST EDITED:  MAY 01, 1990
  • HELP-PROMPT:  Enter X if PAID visit or W if WITHOUT PAY visit.
274 DAY 25 PRCCCA2A;25 SET
  • 'X' FOR PAID;
  • 'W' FOR WITHOUT PAY;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,1-$L(Y))
  • LAST EDITED:  MAY 01, 1990
  • HELP-PROMPT:  Enter X if PAID visit or W if WITHOUT PAY visit.
275 DAY 26 PRCCCA2A;26 SET
  • 'X' FOR PAID;
  • 'W' FOR WITHOUT PAY;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,1-$L(Y))
  • LAST EDITED:  MAY 01, 1990
  • HELP-PROMPT:  Enter X if PAID visit or W if WITHOUT PAY visit.
276 DAY 27 PRCCCA2A;27 SET
  • 'X' FOR PAID;
  • 'W' FOR WITHOUT PAY;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,1-$L(Y))
  • LAST EDITED:  MAY 01, 1990
  • HELP-PROMPT:  Enter X if PAID visit or W if WITHOUT PAY visit.
277 DAY 28 PRCCCA2A;28 SET
  • 'X' FOR PAID;
  • 'W' FOR WITHOUT PAY;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,1-$L(Y))
  • LAST EDITED:  MAY 01, 1990
  • HELP-PROMPT:  Enter X if PAID visit or W if WITHOUT PAY visit.
278 DAY 29 PRCCCA2A;29 SET
  • 'X' FOR PAID;
  • 'W' FOR WITHOUT PAY;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,1-$L(Y))
  • LAST EDITED:  MAY 01, 1990
  • HELP-PROMPT:  Enter X if PAID visit or W if WITHOUT PAY visit.
279 DAY 30 PRCCCA2A;30 SET
  • 'X' FOR PAID;
  • 'W' FOR WITHOUT PAY;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,1-$L(Y))
  • LAST EDITED:  MAY 01, 1990
  • HELP-PROMPT:  Enter X if PAID visit or W if WITHOUT PAY visit.
280 DAY 31 PRCCCA2A;31 SET
  • 'X' FOR PAID;
  • 'W' FOR WITHOUT PAY;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,1-$L(Y))
  • LAST EDITED:  MAY 01, 1990
  • HELP-PROMPT:  Enter X if PAID visit or W if WITHOUT PAY visit.
281 PAY VISITS PRCCCA2A;32 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>31)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  NOV 26, 1990
  • HELP-PROMPT:  Enter the number of PAY visits (0-31) for this reporting period.
282 NO PAY VISITS PRCCCA2A;33 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>31)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  AUG 12, 1994
  • HELP-PROMPT:  Enter number of NO PAY visits (0-31) for this reporting period.
  • DESCRIPTION:  
  • TECHNICAL DESCR:  
283 NUMBER OF DEBTS (QUARTERLY) PRCAAR2;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUL 12, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
284 SEGMENT NUMBER PRCAAR2;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>298)!(X<243)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 19, 1992
  • HELP-PROMPT:  Enter segment number 243-249, 251-254 or 292-298
285 MODIFIER PRCAAR21;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,1-$L(Y))
  • LAST EDITED:  JUL 12, 1990
  • HELP-PROMPT:  Answer must be 1 character in length.
286 NUMBER OF DEBITS (MONTHLY) PRCAAR2;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
  • LAST EDITED:  JUL 15, 1990
  • HELP-PROMPT:  Type a Number between 1 and 9999999, 0 Decimal Digits
287 DOLLAR AMOUNT (MONTHLY) PRCAAR2;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000000",$L(Y)+1,10)_Y
  • LAST EDITED:  JUL 12, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999999999, 0 Decimal Digits
288 DOLLAR AMOUNT (QUARTERLY) PRCAAR2;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  JUL 12, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
289 REQ NO. DEBTS PRCAAR2;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUL 13, 1990
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
290 IAQ NO DEBTS PRCAAR2;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
291 DEQ NO DEBTS PRCAAR2;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
292 CCRAQ NO BEBTS PRCAAR2;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
293 CAQ NO DEBTS PRCAAR2;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
294 CAWQ NO DEBTS PRCAAR2;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
295 CATQ NO DEBTS PRCAAR2;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
296 REQ DOLLAR AMOUNT PRCAAR2;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUL 13, 1990
  • HELP-PROMPT:  Type a Number between 1 and 999999, 0 Decimal Digits
297 IAQ DOLLAR AMT PRCAAR2;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 1 and 999999, 0 Decimal Digits
298 DAQ DOLLAR AMT PRCAAR2;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 1 and 999999, 0 Decimal Digits
299 CCPRAQ DOLLAR AMT PRCAAR2;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 1 and 999999, 0 Decimal Digits
299.1 MIP NUMBER OF DEBTS PRCAAR21;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
  • LAST EDITED:  OCT 15, 1991
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
299.2 MIP DOLLAR AMOUNT PRCAAR21;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000000",$L(Y)+1,10)_Y
  • LAST EDITED:  AUG 14, 1991
  • HELP-PROMPT:  Type a Number between 0 and 9999999999, 0 Decimal Digits
340.1 BEG BUDGET FY 340;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  MAY 09, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    This field is used in Accounts Receivable FMS documents to donate the Beginning Budget Fiscal Year for multi-year appropriations.
340.2 OFFSET CASH ACCOUNT 340;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4) X
  • LAST EDITED:  MAY 09, 1994
  • HELP-PROMPT:  Answer must be 4 characters in length.
  • DESCRIPTION:  
    This field is contained in cash receipt (and write-off) documents. Currently no data is stored in this field.
340.3 DEPOSIT NUMBER 340;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<1) X
  • LAST EDITED:  MAY 09, 1994
  • HELP-PROMPT:  Answer must be 1-12 characters in length.
340.4 BILLED FUND 340;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  MAY 09, 1994
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
340.5 ACCOMPLISHED YEAR 340;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  MAY 09, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
340.6 ACCOMPLISHED MONTH 340;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  MAY 09, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
340.7 ACCOMPLISHED DAY 340;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  MAY 09, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
340.8 HDR EXP REV GL IND 340;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  MAY 12, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
340.9 REVERSAL FISC YEAR 340;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  MAY 12, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
340.91 REVERSAL FISC MONTH 340;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  MAY 12, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
340.92 BUDGET OVERRIDE IND 340;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  MAY 12, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
341.1 LINE AMOUNT (SVB) 341;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999999.99)!(X<0)!(X?.E1"."3N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,0,2) I Y="0.00" S Y=""
  • LAST EDITED:  MAY 12, 1994
  • HELP-PROMPT:  Type a Number between 0 and 999999999999.99, 2 Decimal Digits
341.2 LINE ACTION (SVB) 341;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  MAY 12, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
341.3 LINE DESCRITION (SVB) 341;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  MAY 12, 1994
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
341.4 EXP REV GL IND (SVB) 341;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  MAY 12, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
341.5 TREASURY SCHEDULE NO. 341;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<11) X
  • LAST EDITED:  MAY 12, 1994
  • HELP-PROMPT:  Answer must be 11 characters in length.
341.6 ADVANCE FLAG 341;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  JAN 27, 1995
  • HELP-PROMPT:  Answer must be 1 character in length.
341.7 OBLIGATION FISCAL YR 341;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  JAN 27, 1995
  • HELP-PROMPT:  Answer must be 2 characters in length.
341.8 CLOSED BEG BUDGET FY 341;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  JAN 27, 1995
  • HELP-PROMPT:  Answer must be 2 characters in length.
341.9 CLOSED END BUDGET FY 341;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  JAN 27, 1995
  • HELP-PROMPT:  Answer must be 2 characters in length.
341.91 CLOSED FUND 341;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<6) X
  • LAST EDITED:  JAN 27, 1995
  • HELP-PROMPT:  Answer must be 6 characters in length.
341.92 PAYMENT OFFSET IND 341;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  JAN 27, 1995
  • HELP-PROMPT:  Answer must be 1 character in length.
341.93 XDIVISION 341;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4) X
  • LAST EDITED:  JAN 27, 1995
  • HELP-PROMPT:  Answer must be 4 characters in length.
341.94 TRAVEL ADVANCE FLAG 341;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  JAN 27, 1995
  • HELP-PROMPT:  Answer must be 1 character in length.
341.95 CHECK NUMBER FILLER 341;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4) X
  • LAST EDITED:  JAN 27, 1995
  • HELP-PROMPT:  Answer must be 4 characters in length.
401 TRANSACTION CODE FMS;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X
  • LAST EDITED:  JUL 21, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    Transaction code for FMS document.
402 TRANSACTION NUMBER FMS;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<9) X I $D(X),X?.P W " NO PUNCTUATION CHARACTERS" K X
  • LAST EDITED:  DEC 14, 1993
  • HELP-PROMPT:  Enter the first 3 digits of the station number, 6 characters for the document number (from the common number series), optional 2 characters for the partial number. No punctuation characters allowed.
  • DESCRIPTION:  
    Transaction number for FMS document.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
403 MODIFICATION DOCUMENT FMS;3 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  AUG 31, 1994
  • DESCRIPTION:  
    This field indicates if the FMS document is a modification document.
404 SECURITY CODE FMS;4 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X
  • LAST EDITED:  JUL 21, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    This field indicates the SECURITY CODE for FMS document.
405 FCP UPDATED FMS;5 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES, TRANSACTION HAS UPDATED IFCAP FCP BALANCE;
  • 'N' FOR NO, TRANSACTION HAS NOT UPDATED IFCAP FCP BALANCE;

  • LAST EDITED:  DEC 14, 1993
  • DESCRIPTION:  
    This field indicates whether the transaction has updated IFCAP FCP BALANCE. Enter Y for a transaction has updated IFCAP FCP BALANCE. Enter N for a transaction has not updated IFCAP FCP BALANCE.
420.2 SEGMENT ID 2 FMS1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  JUL 21, 1994
  • HELP-PROMPT:  Answer must be 3 characters in length.
  • DESCRIPTION:  
    SEGMENT ID for FMS DOCUMENT.
420.3 SEGMENT ID 3 FMS1;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  JUL 21, 1994
  • HELP-PROMPT:  Answer must be 3 characters in length.
  • DESCRIPTION:  
    SEGMENT ID for FMS document.
420.4 SEGMENT ID 4 FMS1;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  JUL 21, 1994
  • HELP-PROMPT:  Answer must be 3 characters in length.
  • DESCRIPTION:  
    SEGMENT ID for FMS document.
420.5 SEGMENT ID 5 FMS1;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  JUL 21, 1994
  • HELP-PROMPT:  Answer must be 3 characters in length.
  • DESCRIPTION:  
    SEGMENT ID for FMS document.
420.6 SEGMENT ID 6 FMS1;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  JUL 21, 1994
  • HELP-PROMPT:  Answer must be 3 characters in length.
  • DESCRIPTION:  
    SEGMENT ID for FMS document.
421.2 SEGMENT DELIMITER 2 FMS1;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  JUL 21, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    SEGMENT DELIMITER for FMS document.
421.3 SEGMENT DELIMITER 3 FMS1;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  DEC 15, 1993
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    SEGMENT DELIMITER for FMS document.
421.4 SEGMENT DELIMITER 4 FMS1;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  DEC 15, 1993
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    SEGMENT DELIMITER for FMS document.
421.5 SEGMENT DELIMITER 5 FMS1;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  DEC 15, 1993
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    SEGMENT ID for FMS document.
421.6 SEGMENT DELIMITER 6 FMS1;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  DEC 15, 1993
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    SEGMENT DELIMITER for FMS document.
450.01 VENDOR ID FMSTV2;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 13, 1994
  • HELP-PROMPT:  Answer must be 1-9 characters in length.
  • DESCRIPTION:  This is a required field on original entry document of FMS. May not be changed by a modification document unless new document is only for advance, and original obligation document used an Employee ID with the Miscellaneous
    flag of Y on Vendor Table.
450.02 VENDOR ADDRESS CODE FMSTV2;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 13, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    This VENDOR ADDRESS CODE has a size of 1-2 characters in length.
450.03 MILEAGE FMSTV2;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  DEC 15, 1993
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the field the number of miles for which reimbursement is sought. It is a optional field. If left blank, it defaults to zero. This field may be changed by a MODIFY FMS document.
450.04 MILEAGE COST FMSTV2;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,0,2) I Y="0.00" S Y=""
  • LAST EDITED:  APR 19, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the amount of total mileage reimbursement, in dollars and cents. If left blank, it defaults to zero. This field may be changed by a MODIFY document.
450.05 FISC YEAR FMSTV2;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  MAR 31, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length and numeric.
  • DESCRIPTION:  
    This is FMS fiscal year. If left blank, the accounting period is inferred from the document date.
450.06 FISC MONTH FMSTV2;6 NUMBER

  • INPUT TRANSFORM:  K:X'?1.2N!(+X<1)!(+X>12) X I $D(X) S DINUM=+X,X=$E(100+X,2,3)
  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Type a Number between 1 and 12, 0 Decimal Digits
  • DESCRIPTION:  
    This FMS fiscal month. If left blank, the accounting period is inferrred from the document date.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
450.07 HOME ORG FMSTV2;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  APR 13, 1994
  • HELP-PROMPT:  Answer must be 3-7 characters in length.
  • DESCRIPTION:  
    This is FMS system-maintained field. This is the station to which the employee is assigned from the Vendor Table.
450.08 HDR FUND FMSTV2;8 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  JUN 28, 1994
  • HELP-PROMPT:  Answer must be 1-6 characters in length.
  • DESCRIPTION:  
    This is FMS required field. Must be a valid entry on the Fund Table. This field may not be changed by a MODIFY document.
450.09 TRANSACTION TYPE FMSTV2;9 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X
  • LAST EDITED:  APR 13, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  This is FMS required field. This field may not be changed by a MODIFY document. Enter the transaction type code that is appropriate for the dollar amounts being entered. This code must be a valid entry in Generic Code
    Sheet Transaction Type/Segment file.
450.1 TRAVEL PURPOSES FMSTV2;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 13, 1994
  • HELP-PROMPT:  Answer must be 1-5 characters in length.
  • DESCRIPTION:  
    This is FMS optional field. If classified, enter only Travel Purpose Code whose Classified Flag is Y on Travel Purpose Table. If left balnk, defaults to X.
450.11 RECORD YEAR FMSTV2;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  JAN 28, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    This is the transaction year assoicated with the FMS document.
450.12 RECORD MONTH FMSTV2;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N&(0
  • LAST EDITED:  JUN 29, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    This is the transaction month associated with the FMS document.
450.13 RECORD DAY FMSTV2;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  MAY 10, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    This is the transaction day associated with FMS document.
450.14 NUMBER OF DAYS FMSTV2;14 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 28, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the number of days of the FMS document (travel voucher, etc.) covers. If left blank, it defaults to zero.
450.15 YEAR TRAVEL BEGINS FMSTV2;15 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  JAN 28, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    This is the starting year covered by the FMS document.
450.16 MONTH TRAVEL BEGINS FMSTV2;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N&(0
  • LAST EDITED:  JUN 29, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    This the starting month covered by the FMS Document.
450.17 DAY TRAVEL BEGINS FMSTV2;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • LAST EDITED:  FEB 28, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    This is the starting day covered by the FMS Document.
450.18 YEAR TRAVEL ENDS FMSTV2;18 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  JAN 28, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    This is the ending year covered by the FMS document.
450.19 MONTH TRAVEL ENDS FMSTV2;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  JAN 28, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    This is the ending month covered by the FMS document.
450.2 DAY TRAVEL ENDS FMSTV2;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  FEB 01, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    This is the ending day covered by FMS document.
450.21 BUDGET FY FMSTV2;21 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  JAN 28, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    This is the last 2 digits fiscal years to which the FMS Document applies.
450.22 END BUDGET FY FMSTV2;22 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  JAN 28, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    This is the last 2 digits ending fiscal years to which the FMS document applies.
450.23 VENDOR NAME FMSTV2;23 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  APR 13, 1994
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    This is the VENDOR name to be printed on FMS document.
450.24 VENDOR ADDRESS 1 FMSTV2;24 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  APR 13, 1994
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    This is vendor address 1 associated with vendor name of FMS document.
450.25 VENDOR ADDRESS 2 FMSTV2;25 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  APR 13, 1994
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    This is vendor address 2 accociated with vendor name of FMS document.
450.26 CITY (FMS) FMSTV2;26 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>19!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 13, 1994
  • HELP-PROMPT:  Answer must be 1-19 characters in length.
  • DESCRIPTION:  
    This is city name associated with venodr name of FMS document.
450.27 STATE CODE (FMS) FMSTV2;27 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X
  • LAST EDITED:  APR 13, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    This is state code associated with vendor name of FMS document.
450.28 ZIP CODE (FMS) FMSTV2;28 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<5)!'((X?5N)!(X?9N)) X
  • LAST EDITED:  AUG 09, 1994
  • HELP-PROMPT:  Enter with 5 digits zip or 9 digits zip without dash.
  • DESCRIPTION:  
    This is zip code associated with vendor name of FMS document.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
450.29 HDR PF IND FMSTV3;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Enter a 'P' for partial, 'F' for final.
  • DESCRIPTION:  
    This is the field entered to indicate PARTIAL/FINAL FMS document.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
450.3 HDR REF TRANS CODE FMSTV3;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X
  • LAST EDITED:  APR 13, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    This is the reference transaction code of FMS document. If entered, the transaction code will be the defauts for all lines of FMS document.
450.31 HDR REF TRANS NUMBER FMSTV3;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 13, 1994
  • HELP-PROMPT:  Answer must be 1-11 characters in length.
  • DESCRIPTION:  
    This is the reference transaction number of FMS document. If entered, the transaction number will be defausts for all lines of FMS document.
450.32 XORGANIZATION SUBMIT FMSTV3;4 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 13, 1994
  • HELP-PROMPT:  Answer must be 1-7 characters in length.
  • DESCRIPTION:  
    This is FMS document user's default sub station.
450.33 TICKET AMT FMSTV3;5 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,0,2) S:Y="0.00" Y=""
  • LAST EDITED:  APR 19, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the amount entered on the ticket lines of FMS document.
450.34 DOCUMENT ACTION FMSTV3;6 SET
  • 'E' FOR NEW ENTRY;
  • 'M' FOR MODIFY;
  • 'X' FOR CANCEL;

  • LAST EDITED:  MAR 08, 1994
  • HELP-PROMPT:  Enter E for new entry, M to modify, X to cancel. Defauts to E.
  • DESCRIPTION:  This field is optional. If blank, defaults to 'E'.
    Enter 'E' if the document is new entry.
    Enter 'M' if the doucment is modifying a previous document. This allows you to add lines to a previous document, change the amounts of existing lines and certain codes, or cancel a line (decrease a line amount to zero).
    Enter 'X' if the document is to cancel a previous document. The document to be canceled may not have been closed by any disbursements porcessing.
450.35 HEADER EXCEPTION AMT FMSTV3;7 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,0,2) I Y="0.00" S Y=""
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the amount of exceptions taken to the FMS document. If left blank, defaults to the sum of all accounting expense line Exception Amount.
450.36 EXCEPTION INC DEC FMSTV3;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Enter 'D' for decrease, 'I' for increase.
  • DESCRIPTION:  
    Enter a 'D' for a decrease in exception amount. 'I' for an increase. If left blank, it defaults to I (increase).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
450.37 EXCEPTION CODE FMSTV3;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    This field is required if the Exception amount on the header or any line is not zero. This field may be changed by a MODIFY document.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
450.38 TOTAL VERIFIED AMT FMSTV3;10 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,0,2) I Y="0.00" S Y=""
  • LAST EDITED:  APR 19, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is a required field. This is the sum of all Actual Costs on the accounting expense lines.
450.39 WTA AMT FMSTV3;11 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,0,2)
  • LAST EDITED:  APR 18, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is Withholding Tax Allowance (WTA) field. This is a system maintained field. The system automatically computes the amount of the WTA entered on the accounting expense lines.
450.4 TAX WITHHELD AMT FMSTV3;12 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,0,2) I Y="0.00" S Y=""
  • LAST EDITED:  APR 20, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits.
  • DESCRIPTION:  
    This is the amount for tax withheld, including any amounts for WTA(Withholding Tax Allowance). It cannot exceed the Taxable amount. If left blank, it defaults to zero. This field may be changed by a MODIFY document.
450.41 TAX WITHHELD INC DEC FMSTV3;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Enter a 'D' for a decrease, 'I' for an increase.
  • DESCRIPTION:  
    This field is optional for modification documents, leave blank on original entry. Enter a 'D' for decrease, 'I' for increase.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
450.42 TAXABLE AMT FMSTV3;14 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,0,2) I Y="0.00" S Y=""
  • LAST EDITED:  APR 20, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the amount for the voucher which is subjet to tax. It can't be exceed the Total Verified amount, or less than the Tax Withheld Amount.
450.43 TAXABLE INC DEC FMSTV3;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Enter a 'D' for a decrease, 'I' for an increase.
  • DESCRIPTION:  
    This field indicates a INCREASE or DECREASE in taxable amount. If left blank, it defaults to 'I' (increase).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
450.44 OWED EMPLOYEE FMSTV3;16 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,0,2) I Y="0.00" S Y=""
  • LAST EDITED:  MAY 10, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits
  • DESCRIPTION:  This is a required field. Enter the amount of reimbursement which is to be paid by check. Must be equal to Total Verified minus Tax Withheld minus sum of the Applied amounts. This field may be changed by a MODIFY
    document.
450.45 OWED INC DEC FMSTV3;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1 character in length. Enter 'I' for increase. 'D' for decrease.
  • DESCRIPTION:  Optional for modification documents, leave blank on original entry. Enter a 'D' for a decrease in Net Owed to Employee, 'I' for a increase. If left blank, it defauts to I(increase). This field may be changed by a MODIFY
    document.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
450.46 FICA WAGE AMT FMSTV3;18 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,0,2) I Y="0.00" S Y=""
  • LAST EDITED:  APR 20, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This field is optional. Enter a amount of wages subject to FICA(OASDI) tax. If left blank, it defaults to I (increase). This field may be changed by a MODIFY document.
450.47 FICA INC DEC FMSTV3;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    Enter a 'D' for a decrease in FICA (OASDI) WAGE, 'I' for increase. If left blank, it defaluts to increase. This field may be changed by a MODIFY document.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
450.48 AGENCY SCHEDULE NO FMSTV3;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  DEC 05, 1994
  • HELP-PROMPT:  Answer must be 1-9 characters in length.
  • DESCRIPTION:  
    This field is required if Print Check Flag is 'N' and No Check Disbursement Flag is not 'Y'.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
450.49 PMT SEQUENCE NUMBER FMSTV3;21 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<1)!'(X?1.8N) X
  • LAST EDITED:  MAR 09, 1994
  • HELP-PROMPT:  Answer must be 1-8 characters in length.
  • DESCRIPTION:  
    This field is required if Print Check Flag is N.
450.5 PRINT CHECK FLAG FMSTV3;22 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 22, 1994
  • HELP-PROMPT:  Enter 'N' to print check via manual Schedule SF-1166. Enter 'Y' to print check at disbursing office or to produce Treasury tape.
  • DESCRIPTION:  
    This field is required if Net Amount is not zero. N to print check via manual Schedule SF-1166 or if No Check Disbursement Flay is Y; Y to print check at disbursing office or to produce Treasury tape.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
450.51 DISBURSING OFFICE FMSTV3;23 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1-4 characters in length.
  • DESCRIPTION:  
    Enter the Treasury Disbursing Office which will be paying for the voucher. If entered, it must be a valid code in the Treasury Disbursing Office Reference Table.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
450.52 NO CHECK DISB FLAG FMSTV3;24 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  This field defaults to 'N'. If payment is a disbursement which will have no check number associated with it, enter a 'Y' in this field. You must ener a 'Y' in this field only if the SF-1166 Schedule number is blank and
    the Print Check Flag is not 'Y'.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
450.53 AGENCY SCHD FISC YR FMSTV3;25 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  MAR 09, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    Enter the fiscal year of the Treasury schedule. If left blank, it will default to the fiscal year of the Accounting Period.
450.54 VOUCHER SCHEDULE CAT FMSTV3;26 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    This field is optional. Enter the code appropriate for the schedule pay this voucher. Valid values are 'T' for automated treasury schedule, 'M' for manual treasury schedule, 'C' for CTP payment, and 'A' for CCD+ payment.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
450.55 TRAVEL TYPE1 FMSTV4;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1) X
  • LAST EDITED:  MAR 09, 1994
  • HELP-PROMPT:  Answer must be 1-3 characters in length.
  • DESCRIPTION:  
    This is the advance travel type field against which the voucher is to be applied.
450.56 TO TRANS CODE 1 FMSTV4;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    This field is required if Applied Advance Travel Type requires an obligation.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
450.57 TO TRANS NUMBER 1 FMSTV4;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1-11 characters in length.
  • DESCRIPTION:  
    This field is required if Applied Advance Travel Type requires an obligation.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
450.58 TRAVEL ADVANCE NUMBER 1 FMSTV4;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1-6 characters in length.
  • DESCRIPTION:  
    This field is required for each advance application line with a non blank Travel Type.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
450.59 APPLIED AMT 1 FMSTV4;5 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,0,2) I Y="0.00" S Y=""
  • LAST EDITED:  MAY 10, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This field is required for each advance application line with a non-blank Travel Type.
450.6 APPLIED 1 INC DEC FMSTV4;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    This field is optional for modification documents. Blank on original entry.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
450.61 ADV BALANCE 1 FMSTV4;7 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999999999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,0,2) I Y="0.00" S Y=""
  • LAST EDITED:  APR 20, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is system maintained field. This field displays the outstanding balance of the travel advance for this Employee, Travel Type and Travel Order, excluding the current document.
450.62 HEADER DESCRIPTION 1 FMSTV4;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1-12 characters in length.
  • DESCRIPTION:  
    Enter any information you want recorded about this advance.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
450.63 TRAVEL TYPE2 FMSTV4;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1-3 characters in length.
  • DESCRIPTION:  
    Enter the advance travel type against which this voucher is to be applied.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
450.64 TO TRANS CODE 2 FMSTV4;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    This field is required if Applied Advance Travel Type requires an obligation.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
450.65 TO TRANS NUMBER 2 FMSTV4;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1-11 characters in length.
  • DESCRIPTION:  
    This field is required if Applied Advance Travel Type requires an obligation.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
450.66 TRAVEL ADVANCE NUMBER 2 FMSTV4;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1-6 characters in length.
  • DESCRIPTION:  
    This field is required for each advance application line with a non-blank Travel Type.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
450.67 APPLIED AMT 2 FMSTV4;13 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,0,2) I Y="0.00" S Y=""
  • LAST EDITED:  APR 20, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This field is required for each advance application line with a non-blank Travel Type.
450.68 APPLIED 2 INC DEC FMSTV4;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    This field is optional for modification documents. Blank on original entry. Defaults to I (increase).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
450.69 ADV BALANCE 2 FMSTV4;15 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999999999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,0,2) I Y="0.00" S Y=""
  • LAST EDITED:  APR 20, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This field is system-maintained. Displays the outstanding balance of the travel advance for this Employee, Travel Type and Travel Order, excluding the current document.
450.7 HEADER DESCRIPTION 2 FMSTV4;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1-12 characters in length.
  • DESCRIPTION:  
    Enter any information you want recorded about this advance application line. This field may be changed by a MODIFY document.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
450.71 TRAVEL TYPE3 FMSTV4;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1-3 characters in length.
  • DESCRIPTION:  
    Enter the advance travel type against which this voucher is to be applied.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
450.72 TO TRANS CODE 3 FMSTV4;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    This field is required if Applied Advance Travel Type requires an obligation.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
450.73 TO TRANS NUMBER 3 FMSTV4;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1-11 characters in length.
  • DESCRIPTION:  
    This field is required if Applied Advance Travel Type requires an obligation.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
450.74 TRAVEL ADVANCE NUMBER 3 FMSTV4;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1-6 characters in length.
  • DESCRIPTION:  
    This field is required for each advance application line with a non-blank Travel Type.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
450.75 APPLIED AMT 3 FMSTV4;21 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,0,2) I Y="0.00" S Y=""
  • LAST EDITED:  APR 20, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This field is required for each advance application line with a non-blank Travel Type.
450.76 APPLIED 3 INC DEC FMSTV4;22 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    This field is optional for modification documents. Blank on original entry. Defaults to I (increase).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
450.77 ADV BALANCE 3 FMSTV4;23 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999999999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,0,2) I Y="0.00" S Y=""
  • LAST EDITED:  APR 20, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This field is system-maintained. Displays the outstanding balance of the travel advance for this Employee, Trvel Type and Travel Order, excludiing the current document.
450.78 HEADER DESCRIPTION 3 FMSTV4;24 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1-12 characters in length.
  • DESCRIPTION:  
    Enter any information you want recorded about this advance application line. This field may be changed by a MODIFY document.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
450.79 TYPE OF VOUCHER FMSTV5;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    This is not a FMS doucment required field. It is not on the screen.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
450.8 OCR PRINT FLAG FMSTV5;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  MAR 09, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    This is not a FMS document required field. It is not on the user screen.
450.81 SCHEDULE DISB FLAG FMSTV5;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    This is not a FMS document required field. It is not on user input screen.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
450.82 TRAVEL DATE BEGINS FMSTV2;29 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 08, 1994
  • DESCRIPTION:  
    This field store the travel begin date in YYMMDD format.
450.83 TRAVEL DATE ENDS FMSTV2;30 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 08, 1994
  • DESCRIPTION:  
    This field stroes the travel ending date in YYMMDD format.
450.84 SCHEDULED PAY DATE FMSTV2;31 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 08, 1994
  • DESCRIPTION:  
    This field stores the scheduled pay date in YYMMDD format.
450.85 UNAPPLIED DEP NUM FMSTV3;27 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>13!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 13, 1994
  • HELP-PROMPT:  Answer must be 1-13 characters in length.
  • DESCRIPTION:  
    Enter unapplied deposit number.
452.05 TRAVEL TYPE FMSTO2;5 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1-3 characters in length.
  • DESCRIPTION:  
    This is a required field. Enter the type of travel for this order or advance. This field may not be changed by a MODIFY document.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.14 CREDIT CARD FLAG FMSTO2;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    This field is system-maintained. It indicates whether or not the employee has been issued a government credit card.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.16 PRINT FLAG FMSTO2;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    Optional for original entry document. Y to print travel order; N to not print travel order.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.17 TO VENDOR ADDRESS 1 FMSTO2;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    This is a system-maintained field.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.18 TO VENDOR ADDRESS 2 FMSTO2;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    This is a system-maintained field.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.19 TO CITY FMSTO2;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>19!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1-19 characters in length.
  • DESCRIPTION:  
    This is a system-maintained field.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.2 TO STATE CODE FMSTO2;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    This is a system-maintained field for FMS transaction category TO.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.21 TO ZIP CODE FMSTO2;21 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<5)!'(X?5N!(X?9N)) X
  • LAST EDITED:  JUN 30, 1994
  • HELP-PROMPT:  Answer must be 5-9 characters in length.
  • DESCRIPTION:  
    This is a system-maintained field of FMS TO document.
452.22 OUTSTANDING BALANCE FMSTO2;22 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999999999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,0,2) I Y="0.00" S Y=""
  • LAST EDITED:  APR 20, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is a system-maintained field. It displays the outstanding balance of the travel advance for this employee and Travel Type, excluding the current document.
452.23 REMAINING ADVANCE FMSTO2;23 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999999999.99)!(X<0) X
  • OUTPUT TRANSFORM:  S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y="0.00" S Y=""
  • LAST EDITED:  APR 20, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is a system-maintained field.
452.24 TEXT TYPE FMSTO2;24 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    This is a optional field. The text type entered is associated with the document as a whole.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.31 END TRAVEL DESC FMSTO3;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  FEB 01, 1994
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
  • DESCRIPTION:  
    Enter a text description of the end date of this Travel Order, such as On arrival. This field may be changed by a MODIFY document.
452.32 TRAVEL MODE CODES FMSTO3;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1-4 characters in length.
  • DESCRIPTION:  
    Enter the codes for the different modes of transportation to be used under this travel order.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.33 TRAVEL PURPOSE CODES FMSTO3;6 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1-5 characters in length.
  • DESCRIPTION:  
    Enter the codes which detail the purpose or purposes of the travel associated with this travel order.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.34 PCS AUTH CODES FMSTO3;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1-7 characters in length.
  • DESCRIPTION:  
    Required if Travel Type's Transfer of Station Code Required flag is Y on Travel Type Table unless classified.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.35 PER DIEM CODE FMSTO3;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    Enter the code which indicates the type of per diem allowance.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.36 PER DIEM AMOUNT FMSTO3;9 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999999.99)!(X<0) X
  • OUTPUT TRANSFORM:  S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y="0.00" S Y=""
  • LAST EDITED:  APR 20, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    Enter the amount in dollars (no cents), that the traveler is authorized to spend daily for subsistence.
452.37 PER DIEM INC DEC FMSTO3;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    Enter 'D' for a decrease in per diem rate, 'I' for an increase.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.38 OBLIG TRANS TYPE FMSTO3;11 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    This is a required field. Enter the transaction type code that is appropriate for the dollar amount being entered for the Travel Advance.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.39 TOTAL OBLIGATION FMSTO3;12 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999999.99)!(X<0) X
  • OUTPUT TRANSFORM:  S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y="0.00" S Y=""
  • LAST EDITED:  APR 20, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999999999.99, 2 Decimal Digits.
  • DESCRIPTION:  
    This is a required field. Enter the unsignee summed amount of all obligation lines on the document. When summing, subtract the decrease amounts in a modifying document. This field may be changed by a MODIFY document.
452.4 TRAVEL ITINERARY 1 FMSTO3;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 3-60 characters in length.
  • DESCRIPTION:  
    Enter a textual listing of the cities to be visited, and the point of departure. Only 2 lines of text are permitted here.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.41 TRAVEL ITINERARY 2 FMSTO3;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 3-60 characters in length.
  • DESCRIPTION:  
    Enter a textual listing of cities to be visited, and the point of departure. Only two lines of text are permitted here.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.42 ADVANCE TRANS TYPE FMSTO3;15 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  JAN 19, 1995
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    Enter the transaction type code that is appropriate for the dollar amount being entered for the Travel Advance.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.43 TOTAL ADVANCE FMSTO3;16 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,0,2) I Y="0.00" S Y=""
  • LAST EDITED:  APR 22, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is a required field. Includes decimal point and two decimal places.
452.44 TOTAL ADV INC DEC FMSTO3;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1 character in length. Enter 'I' for an increase. 'D' for decrease.
  • DESCRIPTION:  
    Enter a 'D' for a decrease in advance amount, 'I' for an increase. If left blank, it defaults to 'I'.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.47 ADVANCE VNDR ADDR FMSTO4;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    This field is optional if Print Check Flag is Y. Otherwise blank.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.48 YEAR REQUIRED FMSTO4;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  FEB 02, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    This is the year of the date on which you want the payment to be selected by the automated disbursements process.
452.49 MONTH REQUIRED FMSTO4;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • LAST EDITED:  FEB 02, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    This is the month of the date on which you want the payment to be selected by the automated disbursments process.
452.5 DAY REQUIRED FMSTO4;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • LAST EDITED:  FEB 02, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    This is the day of the date on which you want the payment to be selected by the automated disbursements process.
452.51 COMMENT LINE 1 FMSTO4;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
  • DESCRIPTION:  
    This field is optional if Print Flag Check is Y. Otherwise blank.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.52 COMMENT LINE 2 FMSTO4;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
  • DESCRIPTION:  
    This field is optional if Print Check Flag is Y. Otherwise blank.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.53 ADV VENDOR ADDRESS 1 FMSTO4;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    This field is optional. Alternate address may be entered. Otherwise system-maintained.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.54 ADV VENDOR ADDRESS 2 FMSTO4;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    This field is optional. Alternate address may be entered. Otherwise system-maintained.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.55 ADV CITY FMSTO4;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>19!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1-19 characters in length.
  • DESCRIPTION:  
    This field is optional. Alternate address may be entered. Otherwise system-maintained.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.56 ADV STATE CODE FMSTO4;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    This field is optional. Alternate address may be entered. Otherwise system-maintained.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.57 ADV ZIP CODE FMSTO4;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<5)!'((X?5N)!(X?9N)) X
  • LAST EDITED:  JUL 01, 1994
  • HELP-PROMPT:  Answer must be 5-9 characters in length.
  • DESCRIPTION:  
    This field is optional. Alternate address may be entered. Otherwise system-maintained.
452.59 PICK UP CHECK FMSTO4;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    This field is optional. Y to send check to Agency; S to send check with enclosures. Defaults to N.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.6 SEQ NUMBER FMSTO4;14 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 22, 1994
  • HELP-PROMPT:  Answer must be 1-8 characters in length.
  • DESCRIPTION:  
    This field is required if Print Check Flag is N. Blank otherwise.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.62 TRAVEL ADVANCE NUMB FMSTO4;16 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 26, 1994
  • HELP-PROMPT:  Answer must be 1-6 characters in length.
  • DESCRIPTION:  
    This field is required if advance is being entered or modified.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.63 HEADER XORGANIZATION FMSTO4;17 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 26, 1994
  • HELP-PROMPT:  Answer must be 1-7 characters in length.
  • DESCRIPTION:  
    Enter the code for the station which is funding this travel advance. This field may not changed by a MODIFY document, unless a new Advance Number is used.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.64 HEADER SUB ORG FMSTO4;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    Enter the Satellite Station. This field may not be changed by a MODIFY document, unless a new Advance is used.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.65 HEADER COST ORG FMSTO4;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1-7 characters in length.
  • DESCRIPTION:  
    This is optional field. Enter this code only if the station benefitting from the travel advance being paid for on this voucher is different from the station.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.66 HEADER COST SUB ORG FMSTO5;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    Enter the sub cost center.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.67 HEADER JOB NUMBER FMSTO5;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1-8 characters in length.
  • DESCRIPTION:  
    This is a optional field.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.68 HEADER XPROGRAM FMSTO5;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1-9 characters in length.
  • DESCRIPTION:  
    This field is required if the Allotment, Suballotment, Allowance Program Option or Suballowance FCP/PRJ is Y or A. This field may not be changed by a MODIFY document, unless a new Advance Number is used.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.69 HEADER REPORT CAT FMSTO5;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1-4 characters in length.
  • DESCRIPTION:  This is optional field. Enter a appropriate code from the Reporting Category Table. The code used must be valid for the Administration /Staff Office inferred from the station code or a combination of other codes as
    specified on the Budget Options Fund Table.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.7 HEADER DESCRIPTION FMSTO5;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1-12 characters in length.
  • DESCRIPTION:  
    Enter any information you want recorded about this advance application line. This field may be changed by a MODIFY document.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.71 ADV FUND FMSTO5;6 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 26, 1994
  • HELP-PROMPT:  Answer must be 1-6 characters in length.
  • DESCRIPTION:  This field is required on original entry if fund on header is blank. Enter the fund appropriate for this advance. The fund must be valid on Fund Table. If left blank, it defaults to the fund entered in the header. This
    field may not be changed by a MODIFY document, unless a new Advance Number is used.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.72 ADV BUDGET FY FMSTO5;7 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  APR 26, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    Enter the last 2 digits of the fiscal years appropriate for this advance. The years must be defined in Fiscal Year Table. If left blank, it defaults to the budget fiscal year entered in the header.
452.73 ADV END BUDGET FY FMSTO5;8 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  APR 26, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    Enter the last 2 digits of ending budget fiscal years appropriate for this advance.
452.74 AGAENCY SCHD FISC YR FMSTO5;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  FEB 02, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    This field is optional. Default to fiscal year of Accounting Period.
452.77 CHECK ADVANCE FMSTO6;1 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,0,2) I Y="0.00" S Y=""
  • LAST EDITED:  APR 20, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This field is not on the screen.
452.78 CHECK ADV INC DEC FMSTO6;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    This field is not on the screen.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.79 CASH ADVANCE FMSTO6;3 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,0,2)
  • LAST EDITED:  APR 19, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This field is not on the screen.
452.8 CASH ADV INC DEC FMSTO6;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    This field is not on the screen.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
454.06 HDR BUDGET FY FMSTP2;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  MAR 04, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    This is a optional field. If left blank, inferred from the document date. Enter the last 2 digits of the fiscal years appropriate for this document.
454.07 HDR END BUDGET FY FMSTP2;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  MAR 04, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    Enter the last 2 digits of the ending budget fiscal years appropriate to the document.
454.09 HDR TRANS TYPE FMSTP2;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    Enter the transaction type appropriate for the accounting model desired for this document.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
454.1 DOCUMENT TYPE FMSTP2;10 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 27, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  This field is optional. Blank defaults to 1. This is a user defined field. Any one alpha-numberic character may be used to define various types of vouchers, for example, GBL, service relocation, storage, damage claim by
    employee, etc. This field may not be changed by a MODIFY document.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
454.11 SCHED YEAR FMSTP2;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  MAR 04, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    Enter the year of the date on which you want this payment to be selected by the automated disbursements process.
454.12 SCHED MONTH FMSTP2;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N&(0
  • LAST EDITED:  MAR 04, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    Enter the month of the date on which you want this payment to be selected by the automated disbursements process.
454.13 SCHED DAY FMSTP2;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • LAST EDITED:  MAR 04, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    Enter the day of the date on which you want this payment to be selected by the automated disbursements process.
454.14 VOUCHER SCHEDULE TYP FMSTP2;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    This field is required for automated disbursements. Enter T if this voucher is common carrier oriented, and M otherwise. This field may not be changed by a MODIFY document.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
454.16 DOCUMENT DESCRIPTION FMSTP2;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 3-12 characters in length.
  • DESCRIPTION:  
    This field is optional. Used for reporting purposes only. Enter notes about this voucher document. This field may be changed by a MODIFY document.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
454.18 FA IND FMSTP2;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    This is optional on PZ document. Y if payment authorization pertains to fix assets acquisition.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
454.21 DOCUMENT TOTAL FMSTP2;21 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,0,2) I Y="0.00" S Y=""
  • LAST EDITED:  APR 20, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    Total of unsigned line amounts. On a modification document, only total of changes to the original line amounts. Include deciaml point and 2 deciaml places.
454.23 VENDOR ADDRESS LINE1 FMSTP2;23 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    This field is optional if Miscellaneous Vendor Code is used. System-maintained otherwise.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
454.24 VENDOR ADDRESS LINE2 FMSTP2;24 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    This field is optional if Miscellaneous Vendor Code is used. System-maintaiined otherwise.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
454.28 HAND PICK CK IND FMSPT2;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    This field is optional. Y for hand pick up checks; S for checks to be held for additional enclosures; B for checks to be held for additional enclosures and for hand pick-up. Defaults to N.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
454.29 COMMENTS TO PRINT FMSTP3;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 3-40 characters in length.
  • DESCRIPTION:  
    Optional. Enter 40 characters of text in this field. If entered, this text will be printed on the face of the checks if issued by Treasury. If the agency prints its own check, the comment will be printed on the check stub.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
454.35 DISCOUNT DAYS 1 FMSTP3;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • LAST EDITED:  MAR 04, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    This field is required if discount percent or discount amount are entered. Blank otherwise.
454.36 DISCOUNT PERCENT 1 FMSTP3;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<4)!'(X?1.2N1"."3N) X
  • OUTPUT TRANSFORM:  I Y="0.000" S Y=""
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Answer must be 4-6 characters in length. Type a Discount %. Must include decimal point and three decimal places.
  • DESCRIPTION:  
    This field is optional. Includes decimal point and 3 decimal places.
454.37 DISCOUNT AMOUNT 1 FMSTP3;9 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,0,2) I Y="0.00" S Y=""
  • LAST EDITED:  APR 20, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This field is optional. Includes decimal point and two decimal places.
454.38 DISCOUNT DAYS 2 FMSTP3;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • LAST EDITED:  MAR 04, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    This field is required if discount percent or discount amount are entered. Blank otherwise.
454.39 DISCOUNT PERCENT 2 FMSTP3;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<4)!'(X?1.2N1"."3N) X
  • OUTPUT TRANSFORM:  I Y="0.000" S Y=""
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Answer must be 4-6 characters in length. Type a discount %. Must includes decimal point and three decimal places.
  • DESCRIPTION:  
    This field is optional. Includes decimal point and 3 decimal places.
454.4 DISCOUNT AMOUNT 2 FMSTP3;12 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,0,2) I Y="0.00" S Y=""
  • LAST EDITED:  APR 20, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This field is optional. Includes decimal point and two deciaml places.
454.41 DISCOUNT DAYS 3 FMSTP3;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • LAST EDITED:  MAR 04, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    This field is required if discount percent or discount amount are entered. Blank otherwise.
454.42 DISCOUNT PERCENT 3 FMSTP3;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<4)!'(X?1.2N1"."3N) X
  • OUTPUT TRANSFORM:  I Y="0.000" S Y=""
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Answer must be 4-6 characters in length. Type a discount %. Must includes decimal point and three decimal places.
  • DESCRIPTION:  
    This field is optional. Includes decimal point and 3 decimal places.
454.43 DISCOUNT AMOUNT 3 FMSTP3;15 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,0,2) I Y="0.00" S Y=""
  • LAST EDITED:  APR 20, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This field is optional. Includes decimal point and two decimal places.
454.44 HDR DISC LOST RSN CD FMSTP3;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    This field is optional. Enter a discount lost reason code if the discounts associated with this voucher has been lost.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
454.46 PROX EOM 1 FMSTP3;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 07, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    Optional. Enter the PROX/EOM discount term associated with the vendor.
454.47 PROX EOM 2 FMSTP3;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 07, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    Optional. Enter the discount terms associated with the vendor.
454.48 PROX EOM 3 FMSTP3;20 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 07, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    Optional. Enter the discount terms associated with the vendor.
455.17 INTR AGCY SYMBOL FMSDD2;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
  • DESCRIPTION:  Optional. Enter the Treasury Symbol of the fund to which payment is being made. Enter the Treasury Symbol to record both sides of a SIBAC transaction. This symbol is recorded in the detail journal and will be available for
    later reporting(including the SF-224 and SF-1220).
455.18 DIRECT DISB NUMBER FMSDD2;18 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<1)!(X?1P.E) X
  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Answer must be 1-11 characters in length.
  • DESCRIPTION:  
    This is a required field. Enter the pre-printed number associated with the direct disbursement document. This field may not be changed by a MODIFY document.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
455.19 AGREEMENT NUMBER FMSDD2;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
  • DESCRIPTION:  
    Optional for direct disbursement (DD). If this document represents a refund of an over-collection associated with a billable customer agreement, enter the agreement number here.
455.22 ADVANCE LIQ AMT FMSDD2;22 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,0,2) I Y="0.00" S Y=""
  • LAST EDITED:  APR 20, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    Optional. Required if this payment contains any advance offset lines. Enter the unsigned net of all advance offset lines. Otherwise leave blank.
458.01 DATE COVERED FROM FMSIF2;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 14, 1994
  • DESCRIPTION:  
    This field stores the starting date covered by FMS document in YYMMDD format.
458.02 DATE COVERED TO FMSIF2;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 14, 1994
  • DESCRIPTION:  
    This field stores the ending date covered by FMS imprest document in YYMMDD format.
458.1 COVERED FROM YEAR FMSIF2;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  FEB 17, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    This field stores the starting year covered by FMS imprest document.
458.11 COVERED FROM MONTH FMSIF2;11 NUMBER

  • INPUT TRANSFORM:  K:X'?1.2N!(+X<0)!(+X>12) X
  • LAST EDITED:  APR 14, 1994
  • HELP-PROMPT:  Type a Number between 1 and 12, 0 Decimal Digits
  • DESCRIPTION:  
    This field stores the starting month covered by FMS imprest document.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
458.12 COVERED FROM DAY FMSIF2;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • LAST EDITED:  FEB 17, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    This field stores the starting day covered by FMS imprest document.
458.13 COVERED TO YEAR FMSIF2;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  FEB 17, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    This field stores the ending year covered by FMS imprest document.
458.14 COVERED TO MONTH FMSIF2;14 NUMBER

  • INPUT TRANSFORM:  K:X'?1.2N!(+X<0)!(+X>12) X
  • LAST EDITED:  APR 14, 1994
  • HELP-PROMPT:  Type a Number between 1 and 12, 0 Decimal Digits
  • DESCRIPTION:  
    This field stores the ending month covered by FMS imprest document.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
458.15 COVERED TO DAY FMSIF2;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • LAST EDITED:  FEB 17, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    This field stores the ending day covered by FMS imprest document.
458.19 HDR VENDOR ID FMSIF2;19 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Answer must be 1-9 characters in length.
  • DESCRIPTION:  
    Vendor/provider code must be a V or B in Vendor Table.
458.2 HDR VENDOR ADDR CODE FMSIF2;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    Vendor/provider code must be a V or B in Vendor Table.
458.22 HDR VENDOR NAME FMSIF2;22 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  FEB 17, 1994
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    This field is required if Miscellaneous Vendor Code is used. System-maintained otherwise.
458.23 HDR VENDOR ADDRESS 1 FMSIF2;23 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    This field is required if Miscellaneous Vendor Code is used. System-maintained otherwise.
458.24 HDR VENDOR ADDRESS 2 FMSIF2;24 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    This field is required if Miscellaneous Vendor Code is used. System-maintained otherwise.
460.01 COLLECTION DUE DATE FMSTB2;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 13, 1994
  • DESCRIPTION:  
    This field stores the FMS document Collection Due Date in YYMMDD format.
460.06 ACCTG TRANS TYPE FMSTB2;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    Optional. Enter the transaction type appropriate for the accounting model desired for the FMS document.
460.13 FUND FMSTB2;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Answer must be 1-6 characters in length.
  • DESCRIPTION:  
    Enter the code of the fund to be associated with this Transportation Bill. Must be a valid entry in the Fund Table.
460.15 VEND ADDRESS LINE1 FMSTB2;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    Required when vendor code is for a miscellaneous vendor. System maintained otherwise.
460.16 VEND ADDRESS LINE2 FMSTB2;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    Required when vendor code is for a miscellaneous vendor. System-maintained otherwise.
460.17 VEND CITY FMSTB2;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>19!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Answer must be 1-19 characters in length.
  • DESCRIPTION:  
    Required when vendor code is for a miscellaneous vendor. System-maintained otherwise.
460.18 VEND STATE CODE FMSTB2;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    Required when vendor code is for a miscellaneous vendor. System-maintained otherwise.
460.19 VEND ZIP 1 FMSTB2;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5)!'(X'?1P.E) X
  • LAST EDITED:  JUL 05, 1994
  • HELP-PROMPT:  Answer must be 5 characters in length.
  • DESCRIPTION:  
    Required when vendor code is for a miscellaneous vendor. System-maintained otherwise.
460.2 VEND ZIP 2 FMSTB2;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Answer must be 1-4 characters in length.
  • DESCRIPTION:  
    Required when vendor code is for a miscellaneous vendor. System-maintained otherwise.
460.21 GTR NUMBER FMSTB2;21 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
  • DESCRIPTION:  
    Optional. Enter the number of the GTR, or the contract number of GTS. If this field is entered, it must be a default GTR number on the ticket line.
460.22 BILL PRINT FLAG FMSTB2;22 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P) X
  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    Optional for original entry document. Y to print travel order; N to not print travel order. Defaults to Print Flag value on Transaction Category Table (TCAT).
460.23 COLLECTED DUE YY FMSTB2;23 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  JUL 07, 1998
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    Optional. If left blank, it will be calculated by adding the number of cycle days to the transaction date.
460.24 COLLECTED DUE MM FMSTB2;24 NUMBER

  • INPUT TRANSFORM:  K:X'?1.2N!(+X<0)!(+X>12) X I $D(X) S DINUM=+X,X=$E(100+X,2,3)
  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Type a Number between 1 and 12, 0 Decimal Digits
  • DESCRIPTION:  
    Optional. If left blank, it will be calculated by adding the number of cycle days to the transaction date.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
460.25 COLLECTED DUE DD FMSTB2;25 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • LAST EDITED:  FEB 18, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    Optional. If left blank, it will be calculated by adding the number of cycle days to the transaction date.
460.26 INTEREST RATE FMSTB3;26 NUMBER

  • INPUT TRANSFORM:  K:(+X<0)!(+X>100) X I $D(X) S DINUM=+X S Y=$P(X,".",1)_"."_$P(X,".",2)_$E("000",3-$L($P(X,".",2))) S X=Y
  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Type a Number between 0 and 100, 3 Decimal Digits
  • DESCRIPTION:  
    Optional. Enter the interest rate to apply if the receivable is subject to interest charges and it is not collected by the collection due date.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
460.28 WAIVER FLAG FMSTB2;28 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    Optional. Valid codes are I,H,P,A,IH,IP,HP.
460.29 CAUSE OF OVERPAYMENT FMSTB2;29 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Answer must be 1-3 characters in length.
  • DESCRIPTION:  
    Optional. Enter the code representing the cause of overpayment for the Transportation Billing Document.
460.3 CASE HIST FLAG FMSTB2;30 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P) X
  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    Optional.
461.01 TICKET AS OF DATE FMSTN2;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 10, 1994
  • DESCRIPTION:  
    This field created to hold the ticket as of date entered by user in YYMMDD format . This field not used for FMS document template prompt.
461.08 VENDOR INVOICE FMSTN2;8 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • DESCRIPTION:  
    Required. Enter the invoice number used by the vendor for identification. This field may not changed by a MODIFY document.
461.17 YEAR OF PAYMENT FMSTN2;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  JUL 06, 1998
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    Optional. Enter the year on which you want this payment to be selected by the automated disbursements process.
461.18 MONTH OF PAYMENT FMSTN2;18 NUMBER

  • INPUT TRANSFORM:  K:(+X<1)!(+X>12) X I $D(X) S DINUM=+X,X=$E(100+X,2,3)
  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Type a Number between 1 and 12, 0 Decimal Digits
  • DESCRIPTION:  
    Optional. Enter the month on which you want this payment to be selected by the automated disbursements process.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
461.19 DAY OF PAYMENT FMSTN2;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • LAST EDITED:  FEB 22, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    Optional. Enter the day on which you want this payment to be selected by the automated disbursements porcress.
461.2 BEGIN YEAR FMSTN2;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  JUL 06, 1998
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    Optional. Enter the beginning year covered by the invoice.
461.21 BEGIN MONTH FMSTN2;21 NUMBER

  • INPUT TRANSFORM:  K:(+X<1)!(+X>12) X I $D(X) S DINUM=+X,X=$E(100+X,2,3)
  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Type a Number between 1 and 12, 0 Decimal Digits
  • DESCRIPTION:  
    Optional. Enter the beginning month covered by the invoice.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
461.22 BEGIN DAY FMSTN2;22 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • LAST EDITED:  FEB 22, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    Optional. Enter the day covered by the invoice.
461.23 VENDOR INVOICE YEAR FMSTN2;23 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  JUL 07, 1998
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    This is a required field. Enter the year used on the invoice received by the vendor. The system uses the vendor invoice date to access the voucher tracking record.
461.24 VENDOR INVOICE MONTH FMSTN2;24 NUMBER

  • INPUT TRANSFORM:  K:(+X<1)!(+X>12) X I $D(X) S DINUM=+X,X=$E(100+X,2,3)
  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Type a Number between 1 and 12, 0 Decimal Digits
  • DESCRIPTION:  
    This is a required field. Enter the month used on the invoice received by the vendor.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
461.25 VENDOR INVOICE DAY FMSTN2;25 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • LAST EDITED:  FEB 22, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    This is a required field. Enter the field used on the invoice received by the vendor.
461.26 INT REASON CODE FMSTN2;26 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P) X
  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    Optional. If interest is applied against this invoice because of prompt pay rules when the check is issued--as defined in the Prompt Pay Reference Table--users can enter the reason code for the payment delay in this field.
461.27 TRANS TYPE (FMS) FMSTN2;27 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    Optional. Enter the transaction type code that is appropriate for the dollar amount being entered.
461.4 REF ADV TRANS CODE FMSTN3;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    Optional. Enter the Transaction Code of the document used to issue the advance.
461.41 REF ADV TRANS NUMBER FMSTN3;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Answer must be 1-11 characters in length.
  • DESCRIPTION:  
    Optional. Enter the Transaction Number of the document use to issue the advance.
461.42 REF ADV TRANS LINE FMSTN3;11 NUMBER

  • INPUT TRANSFORM:  K:X'?1.3N!(+X<1) X I $D(X) S DINUM=+X,X=$E(1000+X,2,4)
  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    Optional. Enter the line number of the document used to issue the document.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
461.44 VI TRANS CODE FMSTN4;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    This field is not on the screen. This field is for future use.
461.45 TELETICKET FLAG FMSTN4;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P) X
  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    This field is not on the screen. This field is for future use.
462.01 START DATE FMSMO1;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 26, 1994
  • DESCRIPTION:  
    This field stores the starting date for AO,CO,SO in YYMMDD format.
462.02 END DATE FMSMO1;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 26, 1994
  • DESCRIPTION:  
    This field stores the ending date of AO,CO,SO in YYMMDD format.
462.06 HEADER BUDGET FY FMSMO2;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  JUL 06, 1998
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    Optional. If left blank, the fisrt budget fiscal year defaults to the budget fiscal year inferred from the document date.
462.07 HEADER END BUDGET FY FMSMO2;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  JUL 06, 1998
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    Optional. If left blank, the fisrt end budget fiscal year defaults to the end budget fiscal year inferred from the document date.
462.08 HEADER FUND FMSMO2;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<6) X
  • LAST EDITED:  FEB 24, 1994
  • HELP-PROMPT:  Answer must be 6 characters in length.
  • DESCRIPTION:  
    Optional. If entered, this code is the default for all lines on this purchase order document on which fund code is spaces. If left blank, then fund code must be entered on every line of the document.
462.11 RESP PERSON FMSMO2;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  FEB 24, 1994
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
  • DESCRIPTION:  
    Enter the person to whom questions should be addressed about the order.
462.16 VENDOR ADDR1 FMSMO2;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  JUL 05, 1994
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    System-maintained if Vendor Type not "Miscellaneous". Inferred from the Vendor Table.
462.17 VENDOR ADDR2 FMSMO2;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  JUL 05, 1994
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    System-maintained if Vendor Type not "Miscellaneous". Inferred from the Vendor table.
462.21 VENDOR CONTACT FMSMO2;21 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  JUL 05, 1994
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    Required for Contract Order (AO,CO). Optional if the Contract Required flag on the Transaction Category Table (TCAT) is set to N. Enter the contract number under which the puschase order is being issued.
462.22 CONFIRMATION ORDER FMSMO2;22 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • INPUT TRANSFORM:  K:(X?1P.E) X
  • LAST EDITED:  AUG 08, 1994
  • DESCRIPTION:  
    Enter Y if this is a confirmation order, in which case the purchase order printing program will print "CONFIRMATION ORDER" on the purchase order. Defaults to N.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
462.23 FOB POINT FMSMO2;23 SET
  • 'O' FOR ORIGIN;
  • 'D' FOR DESTINATION;

  • INPUT TRANSFORM:  K:(X?1P.E) X
  • LAST EDITED:  AUG 08, 1994
  • DESCRIPTION:  
    Enter the freight on board point. If entered, it must be valid on the Freight On Board Table.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
462.24 DELIVERY YY FMSMO3;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  JUL 06, 1998
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    Enter the year by which the order must be received.
462.25 DELIVERY MM FMSMO3;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(0
  • LAST EDITED:  JUL 05, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    Enter the month by which the order must be received.
462.26 DELIVERY DD FMSMO3;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  FEB 24, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    Enter the day by which the order must be received.
462.27 BLANKET NUMBER FMSMO3;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  JUN 03, 1994
  • HELP-PROMPT:  Answer must be 1-11 characters in length.
  • DESCRIPTION:  
    Enter the number of the blanket agreement between the goverment and the vendor which governs the terms of this order.
462.28 BUYER FMSMO3;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  JUN 03, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    Enter the code of the buyer processing the order.
462.29 SHIP ADDRESS CODE FMSMO3;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  JUN 03, 1994
  • HELP-PROMPT:  Answer must be 1-12 characters in length.
  • DESCRIPTION:  
    Enter the code that represents the receiving location. This field is used to infer to the "ship to" address printed on the purchase order.
462.31 ENDING YY FMSMO3;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  JUL 06, 1998
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    Required for Contact Order Document (AO,CO) and Service Order Document (SO) if the Auto Accrue Indicator field is set to Y, otherwise optional.
462.32 ENDING MM FMSMO3;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(0
  • LAST EDITED:  JUL 06, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    Required for Contract Order Document (AO,CO) and Service Order Document (SO)if the Auto Accrue Indicator field is set to Y, otherwise optional.
462.33 ENDING DD FMSMO3;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  FEB 24, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    Required for Contract Order Document (AO,SO) and Service Order Document (SO) if the Auto Accrue Indicator field is set to Y, otherwise optional.
462.34 ENDING DATE DESC FMSMO3;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  JUN 03, 1994
  • HELP-PROMPT:  Answer must be 1-12 characters in length.
  • DESCRIPTION:  
    Use if there is no specific calendar end date, for example, "when done".
462.35 INSPECT ACCEPT DAYS FMSMO3;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 03, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    Enter the number of days negotiated for this order.
462.36 NEG PAYMENT DAYS FMSMO3;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 03, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • DESCRIPTION:  The payment terms negotiate for payment of this order after an invoice is received against it. If this field is entered, it is used by payment voucher program to determine the scheduled payment date for any invoice
    referencing this order, and is used by the disbursements subsystem in determining if any interest is due on payment made against this order.
462.38 NO OF OPTIONS FMSMO3;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>2)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 24, 1994
  • HELP-PROMPT:  Type a Number between 1 and 2, 0 Decimal Digits
  • DESCRIPTION:  
    Optional on MZ,SZ documents. Blank otherwise.
462.39 PURCHASE METHOD FMSMO3;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P) X
  • LAST EDITED:  JUL 06, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    This is a user defined field. Enter the appropriate code for the type of purchase order being entered.
462.4 EFFECTIVE YY FMSMO3;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  JUL 06, 1998
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    Required on AO,CO,SO documents if Auto Accrue Indicator field is set to Y, otherwise optional. Optional on MZ,SZ,WO,TG document; defaults to document date.
462.41 EFFECTIVE MM FMSMO3;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(0
  • LAST EDITED:  JUL 06, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    Required on AO,CO,SO documents if Auto Accrue Indicator field is set to Y, otherwise optional. Optional on MZ,SZ,WO,TG documents; defaults to document date.
462.42 EFFECTIVE DD FMSMO3;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  MAR 01, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    Required on AO,CO,SO documents if Auto Accure Indicator field is set to Y, otherwise optional. Optional on MZ,SZ,WO,TG documents; defaults to document date.
462.43 ALT PAY ID FMSMO3;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  JUN 03, 1994
  • HELP-PROMPT:  Answer must be 1-9 characters in length.
  • DESCRIPTION:  Optional. If entered must be a valid vendor in the Vendor Table, but must be different from the Vendor Code. Either the Alternate Payee or the Vendor may be coded on a payment voucher that references this order. In both
    cases, the Vendor Code on the payment voucher must match the first 9 characters of the appropriate code on the order (either Vendor Code or Alternate Payee).
462.44 ALT PAY ADDRESS CODE FMSMO3;21 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  JUN 03, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    Must be different from the Vendor Code if entered.
462.45 ALT PAY NAME FMSMO3;22 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  JUN 03, 1994
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    System-maintained. Inferred from the Vendor Table when an Alternate Payee code is entered.
462.46 PRINT PO FMSMO3;23 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P) X
  • LAST EDITED:  JUN 03, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    Optional on MZ,SZ,TG,WO document. N to prevent order from being printed; Y to print order. Defaults to value of Print Order Flag on Transaction Category Table (TCAT).
462.47 RECEIVER REQUIRED FMSMO3;24 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P) X
  • LAST EDITED:  JUN 03, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    Optional on MZ,SZ,TG,WO documents. Defaults to value stored in Obligation Requires Receiver field on Transaction Category Table (TCAT) for this type of order (commodity or non-commodity).
462.48 VENDOR INV REQUIRED FMSMO3;25 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P) X
  • LAST EDITED:  JUN 03, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  Optional on MZ,SZ,TG,WO documents. Defaualt to value stored in Obligation Invoice field on Transaction Category Table (TCAT) for this type of order. Y indicates payments against order cannot exceed dollar value of goods
    invoiced.
462.5 COURSE CODE FMSMO3;27 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  JUN 03, 1994
  • HELP-PROMPT:  Answer must be 1-8 characters in length.
  • DESCRIPTION:  
    Optional to TG document. Blank otherwise.
462.51 TRAINING CODE FMSMO3;28 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  JUN 03, 1994
  • HELP-PROMPT:  Answer must be 1-8 characters in length.
  • DESCRIPTION:  
    Optional to TG documents. Blank otherwise.
462.52 VENDOR CLASS FMSMO3;29 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  JUN 03, 1994
  • HELP-PROMPT:  Answer must be 1-5 characters in length.
  • DESCRIPTION:  
    Optional to TG documents. Blank otherwise.
462.53 DUTY HOURS FMSMO3;30 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 24, 1994
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    Optional to TG documents. Blank otherwise.
462.54 OFF DUTY HOURS FMSMO3;31 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 24, 1994
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    Optional on TG documents. Blank otherwise.
462.55 CONTRACT NUMBER FMSMO3;32 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  JUN 03, 1994
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
  • DESCRIPTION:  
    Required on AO,CO documents. Optional if Contract Required flag on Transaction Category Table (TCAT) is set to N.
462.56 INVITATION NUMBER FMSMO3;33 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  JUN 03, 1994
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
  • DESCRIPTION:  
    Optional on MZ,SZ,WO documents. Blank otherwise.
462.57 ASSOC TRAN CODE HDR FMSMO3;34 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  JUN 03, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    Transaction code.
462.58 ASSOC DOC ID HDR FMSMO3;35 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  JUN 03, 1994
  • HELP-PROMPT:  Answer must be 1-11 characters in length.
  • DESCRIPTION:  
    Transaction number.
462.67 AUTO ACCRUE IND FMSMO4;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P) X
  • LAST EDITED:  JUN 03, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    Optional on AO,CO,SO documents. Defaults to Y on SO document and to N on AO,CO documents.
462.71 HDR WAREHOUSE CODE FMSMO5;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  JUN 03, 1994
  • HELP-PROMPT:  Answer must be 1-4 characters in length.
  • DESCRIPTION:  
    This field is not on the user screen. Will be used in the future.
462.72 SHIP ADDR CODE VIA FMSMO5;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  JUN 03, 1994
  • HELP-PROMPT:  Answer must be 1-12 characters in length.
  • DESCRIPTION:  
    This field is not on the user screen. Will be used in the future.
462.73 RELATED GBL FMSMO5;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  JUN 03, 1994
  • HELP-PROMPT:  Answer must be 1-11 characters in length.
  • DESCRIPTION:  
    This field is not on the user screen. Will be used in the future.
462.74 DISCOUNT TYPE FMSMO5;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P) X
  • LAST EDITED:  JUN 03, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    This field is not on the user screen. Will be used in the future.
462.75 GPO PROGRAM FMSMO5;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  JUN 03, 1994
  • HELP-PROMPT:  Answer must be 1-6 characters in length.
  • DESCRIPTION:  
    This field is not on the user screen. Will be used in the future.
462.76 GPO JACKET FMSMO5;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  JUN 03, 1994
  • HELP-PROMPT:  Answer must be 1-6 characters in length.
  • DESCRIPTION:  
    This field is not on the user screen. Will be used in the future.
462.77 PUBLICATION CTL FMSMO5;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  JUN 03, 1994
  • HELP-PROMPT:  Answer must be 1-6 characters in length.
  • DESCRIPTION:  
    This field is not on the user screen. Will be used in the future.
462.78 BILLING ADDRESS FMSMO5;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  JUN 03, 1994
  • HELP-PROMPT:  Answer must be 1-6 characters in length.
  • DESCRIPTION:  
    This field is not on the user screen. Will be used in the future.
463.01 RECEIVED BY FMSRC2;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  MAY 26, 1994
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • DESCRIPTION:  
    Required on original entry document. Optional otherwise.
463.02 CARRIER CODE FMSRC2;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  MAY 26, 1994
  • HELP-PROMPT:  Answer must be 1-3 characters in length.
  • DESCRIPTION:  
    Optional on RZ documents. Blank otherwise. Enter the code of the carrier that transported the shipment. The code must be valid in the Carrier Table.
463.03 CARRIER NAME FMSRC2;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  MAY 26, 1994
  • HELP-PROMPT:  Answer must be 3-25 characters in length.
  • DESCRIPTION:  
    System-maintained for RZ documents. Provided for verification purposes.
463.04 CARRIER NUM FMSRC2;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>14!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  MAY 26, 1994
  • HELP-PROMPT:  Answer must be 1-14 characters in length.
  • DESCRIPTION:  
    System-maintained for RZ documents. Provided for verification purposes.
463.05 CLEAR ALL FMSRC2;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P) X
  • LAST EDITED:  MAY 26, 1994
  • HELP-PROMPT:  Enter 'R' to receive all goods. Enter 'A' to accept all goods, or accept quantities previously received but not accepted.
  • DESCRIPTION:  Optional. R to receive all goods (update commodity and accounting lines); A to accept all goods, or accept quantities previously received but not accepted (update accounting lines only ). If blank, receiver lines must be
    entered.
463.06 COMMENTS (FMS-RC) FMSRC3;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  MAY 26, 1994
  • HELP-PROMPT:  Answer must be 1-12 characters in length.
  • DESCRIPTION:  
    Optional on RZ documents. Blank otherwise.
463.07 RECEIVER DLN FMSRC3;2 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 26, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99999999999, 0 Decimal Digits
  • DESCRIPTION:  Optional. Required if the DLN Required field on the Transaction Category Table (TCAT) is set to Y for this document's transaction code. Enter the Document Locator Number (DLN) for this document. A duplicate DLN cannot
    exist on the CAPP DLN database.
463.08 REF TRANS CODE FMSRC2;6 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  MAY 27, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    Required when referencing a previous purchase order, otherwise optional. Enter the transaction number and unique number that identifies the order against the goods that have been received.
463.09 REF TRANS NUMBER FMSRC2;7 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  MAY 27, 1994
  • HELP-PROMPT:  Answer must be 1-11 characters in length.
  • DESCRIPTION:  
    Required when referencing a previous purchase order. otherwise optional. Enter the transaction code and unique number that identifies the order against the goods that have been received.
463.1 VENDOR ADDR IND FMSRC2;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  MAY 27, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    Required on original entry of a receiver not referencing a previous purchase order, otherwise optional.
463.11 REVERSAL FISC YEAR (RC) FMSRC3;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  JUL 06, 1998
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    Optional on AR document. Blank otherwise.
463.12 REVERSAL FISC MONTH (RC) FMSRC3;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(0
  • LAST EDITED:  JUL 15, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    Optional on AR document. Blank otherwise.
465.1 FMSB FCP 1 FMSB;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  JUL 15, 1994
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
  • DESCRIPTION:  
    FMSB Fund Control Point 1.
465.101 FMSB FCP 2 FMSB;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  JUL 15, 1994
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
  • DESCRIPTION:  
    FMSB Fund Control Point 2.
465.11 FMSB POST TR TYPE FMSB;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  JUL 15, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  Required if the Pending/Approval/Posting Indicator is PA,PP, or DP. Otherwise leave blank. If required and left blank, this value is inferred from the Suballowance Spending Control Table (SASP), if available. If coded,
    this value must be the same as the value stored on the table, if available. Enter a Transaction Type that is appropriate for posting fund. The Transaction Type is used to access the Accounting Entries Tables (ACED,ACEN)
    to determine the journal postings for the document.
465.12 FMSB POST THRU QTR FMSB;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>4)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 04, 1994
  • HELP-PROMPT:  Type a Number between 1 and 4, 0 Decimal Digits
  • DESCRIPTION:  
    Required if the value of the Pending/Approval/Posting Indicator is PA or PP. Otherwise, leave blank. Enter the apportionment period through which you are granting authority.
465.2 FMSB DATE FMSB;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:3991231X) X
  • LAST EDITED:  MAY 04, 1994
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1/1/1950 AND 12/31/2099
  • DESCRIPTION:  
    Optional. Enter the date that you want to associate with these documents, usually the current date, in MMDDYY format. It may not be a future date. If left blank, the date the document is accepted by the system is used.
465.3 FMSB ACCTG PRD FMSB;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  JUL 15, 1994
  • HELP-PROMPT:  Answer must be 1-4 characters in length.
  • DESCRIPTION:  Optional. If left blank, the accounting period is inferred from the Transaction Date. If you want these documents to be recorded in some other accounting perios, enter the desired period using fiscal months and fiscal year
    (MMYY). The period used must be open, however, it may be a future period if the Future Period Allowed flag is Y on the Transaction Category Table (TCAT) for this transaction code.
465.4 FMSB FUND FMSB;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  JUL 15, 1994
  • HELP-PROMPT:  Answer must be 1-6 characters in length.
  • DESCRIPTION:  
    Required. Enter the code of the fund that is to be associated with this document. The code must be valid on the Fund Table (FUND). If entered on a change document, the code must match the original document.
465.5 FMSB BUDGET FYS FMSB;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>2099)!(X<1000)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 15, 1994
  • HELP-PROMPT:  Type a Number between 1000 and 2099, 0 Decimal Digits
  • DESCRIPTION:  Optional. If left blank, the beginning budget fiscal year defaults to the fiscal year of the accounting period. If entered, the year must be valid in the Fiscal Year Table. This applies to both the beginning and ending
    budget fiscal years. Enter the last 2 digits of the fiscal year to which this document applies.
465.6 FMSB TOTAL CHANGE AMT FMSB;7 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>99999999)!(X<-99999999) X
  • LAST EDITED:  MAY 04, 1994
  • HELP-PROMPT:  Type a Dollar Amount between -99999999 and 99999999, 2 Decimal Digits
  • DESCRIPTION:  Required when the Pending/Approval/Posting Indicator is PN,DA, or DP. Optional when the Pending/Approval/Posting Indicator is AP. Enter the unsigned net of the Suballowance Increase/Decrease Amount column. If entered, it
    must equal the system calculated amount. Must be blank if you are deactivating or reactivating this suballowance, or if the Pending/Approval/Posting Indicator is RJ,PA, or PP.
465.7 FMSB PEND/APRV/POST IND FMSB;8 SET
  • 'PN' FOR PENDING;
  • 'RJ' FOR REJECT;
  • 'AP' FOR APPROVE;
  • 'PP' FOR APPROVE/POST;
  • 'PA' FOR POST PREVIOULY APPROVE;
  • 'DA' FOR DIRECTLY APPROVE;
  • 'DP' FOR DIRECTLY POST;

  • LAST EDITED:  MAY 04, 1994
  • DESCRIPTION:  Required. Code one of the following:
    PN To update pending budget amounts or modify existing pending
    amounts.
    RJ To reject and clear previously entered pending budget
    amount.
    AP To approve previously entered pending budget amounts.
    PP To approve and post pending budget amount through the
    specify quarter.
    PA To post previously approved budget amounts through the
    specify quarter.
    DA To directly approve quarterly specified budget amounts or
    modify existing approved amounts.
    DP To directly post quarterly specified budget amounts or
    modify existing posted amounts.
    May be spaces when the document Action on all lines is D to deactivate or R to reactivate.
465.8 FMSB PEND TR TYPE FMSB;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  JUL 15, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    Required if the Pending/Approval/Posting Indicator is PN,DA, or DP. Otherwise, leave blank.
465.9 FMSB APRV TR TYPE FMSB;13 SET
  • 'AP' FOR APPROVE PREVIOUSLY;
  • 'PP' FOR POST PENDING;
  • 'DA' FOR APPROVE DIRECTLY;
  • 'DP' FOR POST DIRECTLY;

  • LAST EDITED:  JUL 21, 1994
  • DESCRIPTION:  Required if the Pending/Approval/Posting Indicator is AP,PP,DA or DP. Otherwise, leave blank. If required and left blank, this value is inferred from the Suballowance Spending Control Table(SASP), if available. If coded,
    this value must be the same as the value stored on the table, if available. Enter the Transaction Type that is appropriate for the approval transaction. The Transaction Type is used to access the Accounting Entries Tables
    (ACED,ACEN) to determine the journal postings for the document.
466.01 SELLING CONTROL POINT IEN FMSIV2;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 06, 1994
  • HELP-PROMPT:  This field stores the internal entry number for the selected control point (from 1 to 999999999).
  • DESCRIPTION:  
    This field stores the internal entry number for the selected control point. It is not used on the FMS code sheets. It is used to default the selected control point when editing a previously entered code sheet.
466.02 BUYING CONTROL POINT IEN FMSIV2;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 06, 1994
  • HELP-PROMPT:  This field stores the internal entry number for the selected control point (from 1 to 999999999).
  • DESCRIPTION:  
    This field stores the internal entry number for the selected control point. It is not used on the FMS code sheets. It is used to default the selected control point when editing a previously entered code sheet.
466.03 TRANSACTION DATE FMSIV2;3 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 06, 1994
  • DESCRIPTION:  
    This field is used to store the transaction date for the FMS document which the user entered. This field is used to store the selected date which will be used as the default response when editing a code sheet.
467.01 BENEFICIARY ID FMSPV4;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  JUN 24, 1994
  • HELP-PROMPT:  Answer must be 1-9 characters in length.
  • DESCRIPTION:  
    Optional. On a third-party payment, enter the vendor whose invoice is being paid. This field may not be changed on a MODIFY document.
467.02 BENEF ADDRESS CODE FMSPV4;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  JUN 24, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    Optional. On a third-party payment, enter the vendor whose invoice is being paid. This field may not be changed on a MODIFY document.
467.03 HOLDBACK TOTAL FMSPV3;1 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,0,2) I Y="0.00" S Y=""
  • LAST EDITED:  MAY 23, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    Required for PZ and MV when contract holdback lines will be entered on the payment voucher. The unsigned net of all contract holdback lines on the document. This field may be changed by a MODIFY document.
467.04 HDR ACCEPT YEAR FMSPV3;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  JUL 06, 1998
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    Optional for PZ, AV and MV. Enter the YEAR on which the goods authorized for payment on this document were accepted. This YEAR is used in scheduling voucher for payment.
467.05 HDR ACCEPT MONTH FMSPV3;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N&(0<+X<13)) X
  • LAST EDITED:  MAY 23, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    Optional for PZ, AV and MV. Enter the MONTH on which the goods authorized for payment on this document were accepted. The MONTH is used in scheduling voucher for payment.
467.06 HDR ACCEPT DAY FMSPV3;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  MAY 23, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    Optional for PZ, AV and MV. Enter the day on which the goods authorized for payment on this document were accepted.
467.08 HDR VENDOR INVOICE FMSPV3;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  JUL 07, 1994
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • DESCRIPTION:  Optional for PZ, AV and MV. If entered, this Vendor Invoice Code are the defaults for all lines on this payment voucher document on which the vendor invoice number is spaces. If left blank, then reference vendor invoice
    code must be entered on every applicable line of the document.
467.09 HDR VI YEAR FMSPV3;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  JUL 06, 1998
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    Optional on PZ, AV and MV documents. Defaults to document date.
467.1 HDR VI MONTH FMSPV3;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N&(0<+X<13)) X
  • LAST EDITED:  MAY 23, 1994
  • HELP-PROMPT:  Answer must be 2 characters (01-12) in length.
  • DESCRIPTION:  
    Optional on PZ, AV and MV document. Defaults to document date.
467.11 HDR VI DAY FMSPV3;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  MAY 23, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    Optional on PZ, AV and MV. Defaults to document date.
467.12 HDR VI LOG YEAR FMSPV3;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  JUL 06, 1998
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  Required on PZ, AV and MV documents if Trigger Date Flag for prompt pay type is I or L and Invoice Log Date is not available from Voucher Tracking Inquiry Screen (VCTI). Optional on PZ, AV and MV documents if Trigger Date
    Flag for prompt pay type is D.
467.13 HDR VI LOG MONTH FMSPV3;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N&(0<+X<13)) X
  • LAST EDITED:  MAY 23, 1994
  • HELP-PROMPT:  Answer must be 2 characters (01 - 12 months) in length.
  • DESCRIPTION:  
    Refer to HDR VI LOG YEAR field.
467.14 HDR VI LOG DAY FMSPV3;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  MAY 23, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    Refer to HDR VI LOG YEAR field.
467.15 HDR INT REASON CODE FMSPV3;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  MAY 23, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  Optional on PZ and MV document. If entered, this field must be valid on the Interest Reason Code table (IRCT). If entered, this Interest Reason Code is the default for all lines on this payment voucher document on which
    the interest reason code is spaces. If left blank, then interest reason code must be entered on every applicable line of the document.
467.16 PROMPT PAY TYPE FMSPV3;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P) X
  • LAST EDITED:  JUL 07, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    Optional. Enter the prompt pay type associated with the voucher if the voucher is subject to prompt pay. If not entered and a receiver is referenced, it will default to the prompt pay type on the referenced receiver.
467.17 WORK INSTALLED FMSPV4;3 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,0,2) I Y="0.00" S Y=""
  • LAST EDITED:  JUN 24, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    Required for original entry MV document if document total is no entered. Must be entered in conjunction with net payment amount. Enter the value of work installed.
467.18 NET PAYMENT AMT FMSPV4;4 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,0,2) I Y="0.00" S Y=""
  • LAST EDITED:  JUN 24, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    Required for original entry MV documents if document total is not entered. Must be entered in conjunction with work installed. Enter the amount to be paid.
467.19 HOLDBACK PYMT AMT FMSPV4;5 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,0,2) I Y="0.00" S Y=""
  • LAST EDITED:  JUN 24, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    Required for original entry MV documents if a holdback release amount is included in the net payment amount.
467.2 HDR INVOICE DLN FMSPV4;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>11)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 23, 1994
  • HELP-PROMPT:  Type a Number between 1 and 11, 0 Decimal Digits
  • DESCRIPTION:  
    Required if the DLN Required Flag on the Transaction Category Table (TCAT) is set to Y for this document's transaction code. Enter the document locator number (DLN) for the invoice associated with this document.
467.21 HDR INVOICE DLN SEQ FMSPV4;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 23, 1994
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  Optional for PZ and CV documents. Enter the invoice DLN sequence number associated with the extract of the invoice. If entered, the invoice DLN sequence number is the default for all lines on the payment voucher document
    on which the invoice DLN sequence number is spaces. If left blank, then invoice DLN sequence number must be entered on every applicable line of the document.
467.22 HDR RECEIVER DLN FMSPV4;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 23, 1994
  • HELP-PROMPT:  Type a Number between 1 and 99999999999, 0 Decimal Digits
  • DESCRIPTION:  
    Optional for PZ and CV document. Enter the document locator number (DLN) for the receiver associated with this document.
467.23 HDR RECEIVER DLN SEQ FMSPV4;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 23, 1994
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    Enter the receiver DLN sequence number associated with the abstract of the referenced receiver.
467.24 FISCAL APRV FMSPV4;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P) X
  • LAST EDITED:  JUL 07, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    This field is not on the user screen. Will be used in the future.
467.25 ACCP/DEL DATE FMSPV5;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 24, 1994
  • DESCRIPTION:  
    This field is used to store the ACCP/DEL DATE for the FMS document which the user entered. This field also used to store the selected date which will be used as the default response when editing a code sheet.
467.26 INVOICE DATE FMSPV5;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 24, 1994
  • DESCRIPTION:  
    This field is used to store INVOICE DATE for the FMS document which the user entered. This field is also used to store the selected date which will be used as the default response when editing a code sheet.
467.27 LOG DATE FMSPV5;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 24, 1994
  • DESCRIPTION:  
    This field is used to store the LOG DATE for the FMS document which the user entered. This field is used to store the selected date which will be used as the default response when editing a code sheet.
500 LINE FMSLIN;0 Multiple #2100.02 2100.02

  • LAST EDITED:  MAR 03, 1994
  • DESCRIPTION:  This field stores the FMS line numbers from 1 to 999. When the code sheet is created, the FMS line number will be formatted as three characters. For example, if the FMS line number is 1, it will appear on the code sheet
    as 001.
700.01 CANTEEN (FORCED ENTRIES) ESPAMS7;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Enter the number of forced entries into the CANTEEN [1-2 numerics].
700.02 CASHIER (FORCED ENTRIES) ESPAMS7;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.03 PHARMACY (FORCED ENTRIES) ESPAMS7;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.04 LOCKER AREAS (FORCED ENTRIES) ESPAMS7;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.05 ALL OTHER (FORCED ENTRIES) ESPAMS7;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.06 PERSONAL PROPERTY (OVER $50) ESPAMS7;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.07 PERSONAL PROPERTY (UNDER $50) ESPAMS7;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.08 PERSONAL PROPERTY (TOTAL LOSS) ESPAMS7;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-5 characters in length.
700.09 GOVERNMENT PROPERTY (OVER $50) ESPAMS7;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.1 GOV'T PROPERTY (UNDER $50) ESPAMS7;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-3 characters in length.
700.11 GOV'T PROPERTY (TOTAL LOSS) ESPAMS7;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Enter the Total dollar loss attributed to thefts of government property [1-6 numerics].
700.12 COIN MACHINE THEFTS ESPAMS7;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.13 COIN MACHINE (TOTAL LOSS) ESPAMS7;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-4 characters in length.
700.14 AUTO THEFT-GOV'T VEHICLE ESPAMS7;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.15 GOV'T VEHICLE (TOTAL LOSS) ESPAMS7;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-5 characters in length.
700.16 AUTO THEFT-PRIVATE VEHICLE ESPAMS7;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.17 PRIVATE VEHICLE (TOTAL LOSS) ESPAMS7;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-5 characters in length.
700.18 DRUG THEFTS ESPAMS7;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.19 DRUG THEFTS-ATTEMPTED ESPAMS7;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.2 ARMED ROBBERY ESPAMS7;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.21 STRONG-ARM ROBBERY ESPAMS7;21 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.22 ROBBERY (OVER $50) ESPAMS7;22 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.23 ROBBERY (UNDER $50) ESPAMS7;23 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.24 ROBBERY (DRUGS ONLY) ESPAMS7;24 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.25 TOTAL DOLLAR LOSS TO ROBBERY ESPAMS7;25 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-5 characters in length.
700.26 ASSAULT WITH DANGEROUS WEAPON ESPAMS7;26 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.27 ASSAULT WITH NO WEAPON ESPAMS7;27 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.28 SIMPLE ASSAULT ESPAMS7;28 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.29 ASSAULT BY PATIENTS ESPAMS7;29 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.3 ASSAULT BY EMPLOYEES ESPAMS7;30 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.31 ASSAULT BY OUTSIDERS ESPAMS7;31 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.32 ASSAULT BY UNKNOWN PERSONS ESPAMS7;32 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.33 ASSAULT ON PATIENTS ESPAMS7;33 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.34 ASSAULT ON EMPLOYEES ESPAMS7;34 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.35 ASSAULT ON OUTSIDERS ESPAMS7;35 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.36 FORCIBLE RAPE ESPAMS7A;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.37 ATTEMPTED RAPE ESPAMS7A;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.38 PATIENTS COMMITTING RAPE ESPAMS7A;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.39 EMPLOYEES COMMITTING RAPE ESPAMS7A;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.4 OUTSIDERS COMMITTING RAPE ESPAMS7A;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.41 OTHER PERSONS COMMITTING RAPE ESPAMS7A;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.42 RAPE OF PATIENTS ESPAMS7A;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.43 RAPE OF EMPLOYEES ESPAMS7A;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.44 RAPE OF OUTSIDERS ESPAMS7A;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.45 DISTURBANCE BY OUTSIDERS ESPAMS7A;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-3 characters in length.
700.46 EMPLOYEE/PATIENT DISTURBANCE ESPAMS7A;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-3 characters in length.
700.47 BOMB THREATS ESPAMS7A;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.48 THREATS TO EMPLOYEES ESPAMS7A;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-3 characters in length.
700.49 NEGLIGENT MANSLAUGHTER ESPAMS7A;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.5 NON-NEGLIGENT MANSLAUGHTER ESPAMS7A;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.51 MANSLAUGHTER BY PATIENTS ESPAMS7A;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.52 MANSLAUGHTER BY EMPLOYEES ESPAMS7A;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.53 MANSLAUGHTER BY OUTSIDERS ESPAMS7A;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.54 MANSLAUGHTER BY UNKNOWN PERSON ESPAMS7A;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.55 MANSLAUGHTER ON PATIENT ESPAMS7A;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.56 MANSLAUGHTER ON EMPLOYEE ESPAMS7A;21 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.57 MANSLAUGHTER ON OUTSIDER ESPAMS7A;22 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.58 PATIENT VANDALISM ESPAMS7A;23 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.59 EMPLOYEE VANDALISM ESPAMS7A;24 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.6 OUTSIDE VANDALISM ESPAMS7A;25 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.61 VANDALISM (TOTAL DOLLAR LOSS) ESPAMS7A;26 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-5 characters in length.
700.62 COURTESY PARKING VIOLATIONS ESPAMS7A;27 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-4 characters in length.
700.63 MOVING VIOLATIONS ESPAMS7A;28 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-3 characters in length.
700.64 TRAFFIC COURT VIOLATION NOTICE ESPAMS7A;29 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-3 characters in length.
700.65 ARSON ESPAMS7A;30 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.66 TOTAL DOLLAR LOSS DUE TO ARSON ESPAMS7A;31 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-5 characters in length.
700.67 LIQUOR POSSESSION/INTRODUCTION ESPAMS7A;32 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.68 DRUG POSSESSION/INTRODUCTION ESPAMS7A;33 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.69 RECEIPT/SELL STOLEN PROPERTY ESPAMS7A;34 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.7 WEAPON POSSESSION ESPAMS7A;35 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.71 VICE SOLICITING ESPAMS7A;36 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
700.72 STOPS FOR QUESTIONING ESPAMS7A;37 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-3 characters in length.
700.73 PHYSICAL ARRESTS ESPAMS7A;38 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-3 characters in length.
700.74 ARRESTS THRU US DIST. COURT ESPAMS7A;39 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 31, 1990
  • HELP-PROMPT:  Answer must be 1-3 characters in length.
1209 ADMISSIONS(MED) INC TRFS FBFEE1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 20, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1210 CHANGES IN BEDSECTION(+MED) FBFEE1;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 20, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1211 DEATHS(MED) FBFEE1;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 20, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1211.5 DISCHARGES(MED) FBFEE1;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 20, 1989
  • HELP-PROMPT:  Answer must be 1-4 characters in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1212 CHANGES IN BEDSECTION(-MED) FBFEE1;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 20, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1213 BO (MED PTS REMAINING EOP) FBFEE1;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 20, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1214 ABO (MED PTS REMAINING EOP) FBFEE1;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 20, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1215 TOTAL DAYS OF CARE(MED) FBFEE1;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAR 20, 1989
  • HELP-PROMPT:  Answer must be 1-6 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1216 REIMBUR.DAYS UNAUTH CARE(MED) FBFEE1;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 20, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1217 ADMISSIONS(SURG) INC TRFS FBFEE1;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 20, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1218 CHANGES IN BEDSECTION(+SURG) FBFEE1;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 20, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1219 DEATHS(SURG) FBFEE1;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 20, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1220 DISCHARGES(SURG) FBFEE1;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 20, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1221 CHANGES IN BEDSECTION(-SURG) FBFEE1;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 20, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1222 BO (SURG PTS REMAINING EOP) FBFEE1;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 20, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1223 ABO (SURG PTS REMAINING EOP) FBFEE1;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 20, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1224 TOTAL DAYS OF CARE(SURG) FBFEE1;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAR 20, 1989
  • HELP-PROMPT:  Answer must be 1-6 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1225 REIMBUR.DAYS UNAUTH CARE(SURG) FBFEE1;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 20, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1226 ADMISSIONS(PSYC) INC TRFS FBFEE1;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 20, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1227 CHANGES IN BEDSECTION(+PSYC) FBFEE1;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 20, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1228 DEATHS(PSYC) FBFEE1;21 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 20, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1229 DISCHARGES(PSYC) FBFEE1;22 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 20, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1230 CHANGES IN BEDSECTION(-PSYC) FBFEE1;23 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 20, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1231 BO (PSYC PTS REMAINING EOP) FBFEE1;24 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 20, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1232 ABO (PSYC PTS REMAINING EOP) FBFEE1;25 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 20, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1233 TOTAL DAYS OF CARE(PSYC) FBFEE1;26 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAR 20, 1989
  • HELP-PROMPT:  Answer must be 1-6 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1234 REIMBUR.DAYS UNAUTH CARE(PSYC) FBFEE1;27 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 20, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1235 TOTAL ADMISSIONS DGAMS1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 20, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1236 TRANSFERS IN DGAMS1;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 20, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1237 CHANGES IN BEDSECTION(+) DGAMS1;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1238 DEATHS,BO AND ABO DGAMS1;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1239 DISCHARGE TO OPT/NSC DGAMS1;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1240 DISCHARGES NOT OPT/NSC DGAMS1;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1241 TRANSFERS OUT DGAMS1;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1242 CHANGES IN BEDSECTION(-) DGAMS1;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1243 BED OCCUPANTS EOM DGAMS1;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1244 ABSENT BED OCCUPANTS EOM DGAMS1;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1245 PATIENT DAYS OF CARE DGAMS1;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-6 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1246 PATIENT DAYS OF CARE ( >45) DGAMS1;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-6 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1247 DAYS OF AUTH ABSENCE <96HRS DGAMS1;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1248 CATEGORY A ON WAITING LIST EOM DGAMS1;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1249 CATEGORY B ON WAITING LIST EOM DGAMS1;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1250 CATEGORY C ON WAIT LIST EOM DGAMS1;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1251 OPERATING BEDS EOM DGAMS1;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1252 FEMALE PATIENTS REMAINING EOM DGAMS1;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1253 DIALYSIS OPERATING BEDS DGAMS1;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1254 SEG START CHAR DGAMS1;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2) X
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 2 characters in length.
1255 VERSION NUMBER DGAMS1;21 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1 character in length.
1256 DEPT CODE DGAMS1;22 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1 character in length.
1257 SEGMENT MODIFIER DGAMS1;23 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y="" Y=" "
  • LAST EDITED:  JUL 19, 1990
  • HELP-PROMPT:  Answer must be 1 character in length.
1258 NUMBER OF APPLICATIONS DGAMS1;24 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1259 HOSP CARE RECEIVED DGAMS1;25 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1260 HOSP WAIT LIST DGAMS1;26 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1261 NHCU CARE RECEIVED DGAMS1;27 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1262 NHCU WAIT LIST DGAMS1;28 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1263 DOMICILIARY CARE RECEIVED DGAMS1;29 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1264 DOM WAIT LIST DGAMS1;30 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1265 OUTPATIENT CARE RECEIVED DGAMS1;31 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1266 EXAMINED, NO FURTHER CARE DGAMS1;32 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1267 CANCELLED DGAMS1;33 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1268 INELIG-DENTAL DGAMS1;34 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1269 INELIG-PLASTIC SURGERY DGAMS1;35 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1270 INELIG-STERILIZATION DGAMS1;36 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1271 INELIG-PREGNANCY DGAMS1;37 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1272 INELIG-OTHER DGAMS1;38 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1273 HOSPITAL TYPE OF SERV DGAMS1;39 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1274 NHCU CARE TYPE OF SERV DGAMS1;40 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1275 DOMICILIARY TYPE OF SERV DGAMS1;41 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1276 OPT CARE TYPE OF SERV DGAMS1;42 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1277 DISPOSITION TO COMMUNITY DGAMS1;43 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1278 DISPOSITION TO OTHER DGAMS1;44 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1279 TRT MOD UNAVAIL-HOSP DGAMS1;45 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1280 TRT MOD UNAVAIL-NHCU DGAMS1;46 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1281 TRT MOD UNAVAIL-DOM DGAMS1;47 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1282 TRT MOD UNAVAIL-OPT DGAMS1;48 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1283 TRT MOD UNAVAIL-TO COMMUNITY DGAMS1;49 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1284 TRT MOD UNAVAIL-TO OTHER VA DGAMS1;50 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1285 TRT MOD UNAVAIL-TO FEE DGAMS1;51 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1286 TRT MOD UNAVAIL-TO OTHER DGAMS1A;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1287 LOW PRIORITY-HOSP CARE DGAMS1A;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1288 LOW PRIORITY-NHCU CARE DGAMS1A;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1289 LOW PRIORITY-DOM CARE DGAMS1A;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1290 LOW PRIORITY-OPT CARE DGAMS1A;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1291 LOW PRIORITY-TO COMMUNITY DGAMS1A;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1292 LOW PRIORITY-TO OTHER CARE DGAMS1A;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1293 LOW PRIORITY-TO FEE DGAMS1A;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1294 LOW PRIORITY-TO OTHER DGAMS1A;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1295 PENDING DETERMINATION DGAMS1A;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1296 WON'T PAY DEDUCTIBLE DGAMS1A;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1297 NON-VETERAN APPLICANTS DGAMS1A;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1298 SC 50% OR MORE SDAMS1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-6 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1299 AA/HB;POW;WW1(NSC) SDAMS1;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-6 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1300 SC LESS THAN 50% SDAMS1;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-6 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1301 NSC,RECEIVING VA PENSION SDAMS1;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-6 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1302 OTHER NSC SDAMS1;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-6 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1303 DOMICILIARY MEMBER(NSC) SDAMS1;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-6 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1304 CHAMP VA SDAMS1;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-6 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1305 COLLATERAL OF VETERAN SDAMS1;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-6 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1306 VA EMPLOYEE SDAMS1;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-6 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1307 OTHER FEDERAL AGENCY SDAMS1;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-6 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1308 ALLIED VETERAN SDAMS1;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-6 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1309 HUMANITARIAN EMERGENCY SDAMS1;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-6 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1310 SHARING AGREEMENT SDAMS1;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-6 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1311 INSURANCE SDAMS1;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-6 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1312 C&P EXAM SDAMS1;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-6 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1313 10-10 SDAMS1;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-6 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1314 SCHEDULED VISIT SDAMS1;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-6 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1315 UNSCHEDULED VISIT SDAMS1;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-6 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1316 MENTAL HYGIENE GROUP SDAMS1;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-5 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1317 MENTAL HYGIENE INDIVIDUAL SDAMS1;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-5 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1318 DAY TREATMENT CENTER SDAMS1;21 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-5 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1319 DAY HOSPITAL SDAMS1;22 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-5 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1320 READJUSTMENT COUNSELING SDAMS1;23 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-5 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1321 HBHC SDAMS1;24 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-5 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1322 ADMIS AFTER REHOSP >30 DAYS DGAMS1A;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X S:$D(X) X=$E("0000",$L(X)+1,4)_X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1323 ADMISSIONS - ALL OTHERS DGAMS1A;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1324 TRANSFERS IN SIMILAR FACIL DGAMS1A;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1325 FROM ASIH DGAMS1A;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1326 DISCHARGES DGAMS1A;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1327 TRANSFERS OUT-SIMILAR FACIL DGAMS1A;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1328 TO ASIH DGAMS1A;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1329 ASIH DGAMS1A;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1330 DISCHARGES-ASIH DGAMS1A;21 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1331 DIED-ASIH DGAMS1A;22 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1332 ADMIS AFTER REHOSP >15 DAYS DGAMS1A;23 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1333 TRANSFERS IN FROM CNH DGAMS1A;24 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1334 TRANSFERS OUT TO CNH DGAMS1A;25 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1335 SC PATIENTS PLACED DGAMS1A;26 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1336 MEDICARE DGAMS1A;27 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1337 MEDICAID DGAMS1A;28 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1338 VA AUTH OUTPT VISITS(MED) DGAMS1A;29 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1339 VA AUTH OUTPT VISITS(SURG) DGAMS1A;30 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1340 VA AUTH OUTPT VISITS(PSYC) DGAMS1A;31 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1341 1-DAY INP DIALYSIS VISITS(MED) DGAMS1A;32 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1342 ADMISSIONS FROM SNH/SHH(DOM) FBFEE1A;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1343 ADMISSIONS OTHER (DOM) FBFEE1A;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1344 FROM AA >96HRS (DOM) FBFEE1A;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1345 DISCHARGES TO SNH/SHH (DOM) FBFEE1A;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1346 DISCHARGES OTHER (DOM) FBFEE1A;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1347 DEATHS (DOM) FBFEE1A;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1348 TO AA >96HRS (DOM) FBFEE1A;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1349 BED OCCUPANTS EOP (DOM) FBFEE1A;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1350 MEMBER DAYS OF CARE (DOM) FBFEE1A;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-6 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1351 ADMISSIONS FROM DOM/SHH (SNH) FBFEE1A;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1352 ADMISSIONS OTHER (SNH) FBFEE1A;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1353 FROM AA >96HRS (SNH) FBFEE1A;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1354 DISCHARGES TO DOM/SHH (SNH) FBFEE1A;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1355 DISCHARGES OTHER (SNH) FBFEE1A;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1356 DEATHS (SNH) FBFEE1A;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1357 TO AA >96HRS (SNH) FBFEE1A;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1358 BED OCCUPANTS EOP (SNH) FBFEE1A;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1359 PATIENT DAYS OF CARE (SNH) FBFEE1A;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-6 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1360 ADMISSIONS TO DOM/SNH (SHH) FBFEE1A;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1361 ADMISSIONS OTHER (SHH) FBFEE1A;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1362 FROM AA >96HRS (SHH) FBFEE1A;21 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1363 DISCHARGE TO DOM/SNH (SHH) FBFEE1A;22 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1364 DISCHARGE OTHER (SHH) FBFEE1A;23 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1365 DEATHS (SHH) FBFEE1A;24 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1366 TO AA >96HRS (SHH) FBFEE1A;25 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1367 BED OCCUPANTS EOP (SHH) FBFEE1A;26 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1368 PATIENT DAYS OF CARE (SHH) FBFEE1A;27 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-6 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1369 FEMALE PATIENTS EOP (DOM) FBFEE1A;28 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-3 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1370 FEMALE PATIENTS EOP (SNH) FBFEE1A;29 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-3 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1371 FEMALE PATIENTS EOP (SHH) FBFEE1A;30 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-3 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1372 NON-VET BED OCCUPANTS EOP(DOM) FBFEE1A;31 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-3 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1373 NON-VET BED OCCUPANTS EOP(SNH) FBFEE1A;32 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-3 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1374 NON-VET BED OCCUPANTS EOP(SHH) FBFEE1A;33 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-3 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1375 TOTAL BEDS EOP (DOM) FBFEE1A;34 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1376 TOTAL BEDS EOP (SNH) FBFEE1A;35 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1377 TOTAL BEDS EOP (SHH) FBFEE1A;36 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1378 BED CAPACITY EOP BY VA (DOM) FBFEE1A;37 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1379 BED CAPACITY EOP BY VA (SNH) FBFEE1A;38 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 16, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1380 BED CAPACITY EOP BY VA (SHH) FBFEE1A;39 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAR 20, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1381 PATIENT DAYS OF CARE (1-45) DGAMS1A;33 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  JUN 12, 1989
  • HELP-PROMPT:  Answer must be 1-6 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1382 REC'D FR ADJ PR1 AUDIO DGAMS1B;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1383 REC'D FR ADJ PR1 PSYCH DGAMS1B;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1384 REC'D FR ADJ PR1 OTHER DGAMS1B;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1385 REC'D FR ADJ PR2 AUDIO DGAMS1B;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1386 REC'D FR ADJ PR2 PSYCH DGAMS1B;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1387 REC'D FR ADJ PR2 OTHER DGAMS1B;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1388 RET TO ADJ PR1 AUDIO DGAMS1B;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1389 RET TO ADJ PR1 PSYCH DGAMS1B;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1390 RET TO ADJ PR1 OTHER DGAMS1B;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1391 RET TO ADJ PR2 AUDIO DGAMS1B;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1392 RET TO ADJ PR2 PSYCH DGAMS1B;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1393 RET TO ADJ PR2 OTHER DGAMS1B;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1394 PEND 1MO OR LESS PR1 AUDIO DGAMS1B;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1395 PEND 1MO OR LESS PR1 PSYCH DGAMS1B;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1396 PEND 1MO OR LESS PR1 OTHER DGAMS1B;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1397 PEND 1MO OR LESS PR2 AUDIO DGAMS1B;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1398 PEND 1MO OR LESS PR2 PSYCH DGAMS1B;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1399 PEND 1MO OR LESS PR2 OTHER DGAMS1B;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1400 PEND 2MO OR LESS PR1 AUDIO DGAMS1B;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1401 PEND 2MO OR LESS PR1 PSYCH DGAMS1B;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1402 PEND 2MO OR LESS PR1 OTHER DGAMS1B;21 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1403 PEND 2MO OR LESS PR2 AUDIO DGAMS1B;22 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1404 PEND 2MO OR LESS PR2 PSYCH DGAMS1B;23 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1405 PEND 2MO OR LESS PR2 OTHER DGAMS1B;24 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1406 PEND LESS THAN 6MO PR1 AUDIO DGAMS1B;25 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1407 PEND LESS THAN 6MO PR1 PSYCH DGAMS1B;26 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1408 PEND LESS THAN 6MO PR1 OTHER DGAMS1B;27 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1409 PEND LESS THAN 6MO PR2 AUDIO DGAMS1B;28 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1410 PEND LESS THAN 6MO PR2 PSYCH DGAMS1B;29 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1411 PEND LESS THAN 6MO PR2 OTHER DGAMS1B;30 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1412 PEND 6 TO <12 MO PR1 AUDIO DGAMS1B;31 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1413 PEND 6 TO <12 MO PR1 PSYCH DGAMS1B;32 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1414 PEND 6 TO <12 MO PR1 OTHER DGAMS1B;33 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1415 PEND 6 TO <12 MO PR2 AUDIO DGAMS1B;34 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1416 PEND 6 TO <12 MO PR2 PSYCH DGAMS1B;35 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1417 PEND 6 TO <12 MO PR2 OTHER DGAMS1B;36 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1418 PEND 12MO AND OVER PR1 AUDIO DGAMS1B;37 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1419 PEND 12MO AND OVER PR1 PSYCH DGAMS1B;38 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1420 PEND 12MO AND OVER PR1 OTHER DGAMS1B;39 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1421 PEND 12MO AND OVER PR2 AUDIO DGAMS1B;40 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1422 PEND 12MO AND OVER PR2 PSYCH DGAMS1B;41 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1423 PEND 12MO AND OVER PR2 OTHER DGAMS1B;42 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1424 TOT PEND EOM PR1 AUDIO DGAMS1B;43 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1425 TOT PEND EOM PR1 PSYCH DGAMS1B;44 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1426 TOT PEND EOM PR1 OTHER DGAMS1B;45 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1427 TOT PEND EOM PR2 AUDIO DGAMS1B;46 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1428 TOT PEND EOM PR2 PSYCH DGAMS1B;47 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1429 TOT PEND EOM PR2 OTHER DGAMS1B;48 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 13, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
1430 NEW CASES DGAMS1C;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 12, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1431 REOPENED CASES DGAMS1C;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 12, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1432 NO FURTHER TREATMENT REQ(-) DGAMS1C;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 12, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1433 TO REHOSP PSY BEDSECTION(-) DGAMS1C;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 12, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1434 OTHER (-) DGAMS1C;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 12, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1435 ACTIVE CASES EOP < 1 YEAR DGAMS1C;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 12, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1436 ACTIVE CASES EOP 1-5 YEARS DGAMS1C;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 12, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1437 ACTIVE CASES EOP > 5 YEARS DGAMS1C;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 12, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1438 DAYS OF MHC OPERATION DGAMS1C;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 12, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1439 PROFESSIONAL FTEE DGAMS1C;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!(X'?.N1"."1N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 14, 1989
  • HELP-PROMPT:  Answer with total professional FTEE between .1 and 999.9
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1440 NON-PROFESSIONAL FTEE DGAMS1C;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!(X'?.N1"."1N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 14, 1989
  • HELP-PROMPT:  Answer with total non-professional FTEE between .1 and 999.9
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1441 # OF PTS SEEN BY PSYCHIATRIST DGAMS1C;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 12, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1442 # OF PTS SEEN BY PSYCHOLOGIST DGAMS1C;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 12, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1443 # OF PTS SEEN BY SOCIAL WORKER DGAMS1C;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 12, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1444 # OF PTS SEEN BY NURSE DGAMS1C;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 12, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1445 # OF PTS SEEN BY OTHER DGAMS1C;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 12, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1446 TOT # OF DIFF SC VETS TREATED DGAMS1C;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 12, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1447 TOT # OF DIFF NSC VETS TREATED DGAMS1C;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 12, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1448 TOT # DIFF V.N.ERA VETS TREAT DGAMS1C;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 12, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1449 WAITING LIST EOP DGAMS1C;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 12, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1450 SUPPORT VISITS DGAMS1C;21 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 12, 1989
  • HELP-PROMPT:  Answer must be 1-4 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1451 PENDING PRIOR MONTH DGAMS1D;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  SEP 25, 1989
  • HELP-PROMPT:  ANSWER MUST BE 1-4 NUMBERS IN LENGTH
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1452 RECEIVED DGAMS1D;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  SEP 25, 1989
  • HELP-PROMPT:  ANSWER MUST BE 1-4 NUMBERS IN LENGTH
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1453 RETURNED COMPLETED DGAMS1D;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  SEP 25, 1989
  • HELP-PROMPT:  ANSWER MUST BE 1-4 NUMBERS IN LENGTH
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1454 RETURNED INCOMPLETE DGAMS1D;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  SEP 25, 1989
  • HELP-PROMPT:  ANSWER MUST BE 1-4 NUMBERS IN LENGTH
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1455 PENDING EOM DGAMS1D;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  SEP 25, 1989
  • HELP-PROMPT:  ANSWER MUST BE 1-4 NUMBERS IN LENGTH
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1456 AVG PROCESSING TIME (DAYS) DGAMS1D;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  SEP 25, 1989
  • HELP-PROMPT:  ANSWER MUST BE 1-4 NUMBERS IN LENGTH
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1457 OVER 3 DAYS TO SCHEDULE DGAMS1D;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  DEC 05, 1991
  • HELP-PROMPT:  ANSWER MUST BE 1-4 NUMBERS IN LENGTH
  • DESCRIPTION:  
    REQUIRED FROM DATE OF RECEIPT
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1458 OVER 30 DAYS TO EXAMINE DGAMS1D;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  DEC 05, 1991
  • HELP-PROMPT:  ANSWER MUST BE 1-4 NUMBERS IN LENGTH
  • DESCRIPTION:  
    REQUIRED FROM DATE OF RECEIPT
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1459 PEND 90 DAYS OR LESS DGAMS1D;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  SEP 25, 1989
  • HELP-PROMPT:  ANSWER MUST BE 1-4 NUMBERS IN LENGTH
  • DESCRIPTION:  
    PENDING RETURN TO ADJUDICATION
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1460 PEND 91 DAYS TO 120 DAYS DGAMS1D;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  SEP 25, 1989
  • HELP-PROMPT:  ANSWER MUST BE 1-4 NUMBERS IN LENGTH
  • DESCRIPTION:  
    PENDING RETURN TO ADJUDICATION
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1461 PEND 121 DAYS TO 150 DAYS DGAMS1D;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  SEP 25, 1989
  • HELP-PROMPT:  ANSWER MUST BE 1-4 NUMBERS IN LENGTH
  • DESCRIPTION:  
    PENDING RETURN TO ADJUDICATION
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1462 PEND 151 DAYS TO 180 DAYS DGAMS1D;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  SEP 25, 1989
  • HELP-PROMPT:  ANSWER MUST BE 1-4 NUMBERS IN LENGTH
  • DESCRIPTION:  
    PENDING RETURN TO ADJUDICATION
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1463 PEND 181 DAYS TO 365 DAYS DGAMS1D;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  SEP 25, 1989
  • HELP-PROMPT:  ANSWER MUST BE 1-4 NUMBERS IN LENGTH
  • DESCRIPTION:  
    PENDING RETURN TO ADJUDICATION
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1464 PEND 366 DAYS AND OVER DGAMS1D;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  SEP 25, 1989
  • HELP-PROMPT:  ANSWER MUST BE 1-4 NUMBERS IN LENGTH
  • DESCRIPTION:  
    PENDING RETURN TO ADJUDICATION
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1465 SKULL RAAMS1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1466 CHEST (Single View) RAAMS1;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 10, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
  • DESCRIPTION:  
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1467 CHEST (Multiple View) RAAMS1;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
1468 CARDIAC SERIES RAAMS1;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
1469 ABDOMEN-KUB RAAMS1;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
1470 OBSTRUCTIVE SERIES RAAMS1;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
1471 SPINE AND SACROILIAC(Skeletal) RAAMS1;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
1472 BONE AND JOINTS(Skeletal) RAAMS1;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
1473 GASTROINTESTINAL RAAMS1;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
1474 GENITOURINARY RAAMS1;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
1475 CHOLECYSTOGRAM(ORAL) RAAMS1;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
1476 CHOLANGIOGRAM RAAMS1;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
1477 LAMINAGRAM RAAMS1;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
1478 BRONCHOGRAM RAAMS1;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
1479 DIGITAL SUB.ANGIOGRAPHY RAAMS1;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
1480 CEREBRAL(ANGIO or CATH) RAAMS1;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
1481 VISCERAL(ANGIO or CATH) RAAMS1;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
1482 PERIPHERAL(ANGIO or CATH) RAAMS1;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
1483 VENOGRAM RAAMS1;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
1484 MYELOGRAM RAAMS1;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
1485 COMPUTED TOMOGRAPHY RAAMS1;21 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
1486 INTERVENTIONAL RADIOGRAPHY RAAMS1;22 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
1487 ULTRASOUND/ECHOENCEPHALOGRAM RAAMS1;23 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
1488 OTHER RAAMS1;24 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
1489 EXAM IN OR AT SURGERY RAAMS1;25 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
1490 BEDSIDE EXAM RAAMS1;26 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
1491 CINE RUN RAAMS1;27 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-5 numbers in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1492 PATIENT VISITS RAAMS1;28 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-5 numbers in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1493 NUMBER OF FILMS USED RAAMS1;29 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-5 numbers in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1494 # OF FEET OF CINE ROLLS USED RAAMS1;30 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-5 number in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1495 VA PATIENTS(Superficial X-RAY) RAAMS1;31 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-3 numbers in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1496 VA VISITS(Superficial X-RAY) RAAMS1;32 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1497 VA PATIENTS(Deep X-RAY) RAAMS1;33 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-3 numbers in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1498 VA VISITS(Deep X-RAY) RAAMS1;34 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1499 VA PATIENTS(Cobalt Tel.) RAAMS1;35 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-3 numbers in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1500 VA VISITS(Cobalt Tel.) RAAMS1;36 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1501 VA PATIENTS(Lin.ACC.&Betatron) RAAMS1;37 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-3 numbers in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1502 VA VISITS(Lin ACC &Betatron) RAAMS1;38 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1503 VA PATIENTS(Radio Implts/APPL) RAAMS1;39 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-3 numbers in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1504 VA VISITS(Radio Implts/APPL) RAAMS1;40 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1505 VA CONSULTATION RAAMS1;41 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-3 numbers in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1506 VA TREATMENT PLANNING RAAMS1;42 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1507 VA FOLLOW-UP VISITS RAAMS1;43 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1508 VA SPECIAL PROCEDURES RAAMS1;44 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1509 CONTRACT PTS(Superf X-RAY) RAAMS1;45 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-3 numbers in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1510 CONTRACT VISITS(Superf X-RAY) RAAMS1;46 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1511 CONTRACT PTS(Deep X-RAY) RAAMS1;47 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-3 numbers in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1512 CONTRACT VISITS(Deep X-RAY) RAAMS1;48 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1513 CONTRACT PTS(Cobalt Teleth) RAAMS1;49 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-3 numbers in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1514 CONTRACT VISITS(Cobalt Tel) RAAMS1;50 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1515 CONTRACT PTS(Lin ACC/Betatron) RAAMS1;51 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-3 numbers in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1516 CONTRACT VISITS(Lin ACC/Betat) RAAMS1A;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1517 CONTRACT PTS(Radio Imp/Appl) RAAMS1A;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-3 numbers in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1518 CONTRACT VISITS(Radio Imp/App) RAAMS1A;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1519 CONTRACT CONSUTATIONS RAAMS1A;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-3 numbers in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1520 CONTRACT TREATMENT PLANNING RAAMS1A;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1521 CONTRACT FOLLOW-UP VISITS RAAMS1A;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-3 numbers in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1522 CONTRACT SPECIAL PROCEDURES RAAMS1A;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1523 PAID HOURS(DIAG TECH) RAAMS1A;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-5 numbers in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1524 AVAILABLE HOURS(DIAG TECH) RAAMS1A;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-5 numbers in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1525 PAID HOURS(THERAP TECH) RAAMS1A;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-5 numbers in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1526 AVAILABLE HOURS(THERAP TECH) RAAMS1A;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-5 numbers in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1527 TOTAL TECH FTE RAAMS1A;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!(X'?.N1"."1N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  Answer must be 1-4 numbers including one decimal place in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1530 (2) ADDITION/REESTABLISHMENT FBAMS1;1 SET
  • 'A' FOR ADDITION;
  • 'R' FOR REESTABLISHMENT;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S(Y="":" ",1:$E(Y))
  • LAST EDITED:  SEP 11, 1990
  • DESCRIPTION:  
    If the NH has never been under contract before, enter an 'A'. If the NH has a terminated contract which has been reestablished, enter an 'R'. If the NH is not and ADD or REESTABLISHMENT, leave this field blank.
1531 (3) ALPHA CODE FOR ITEM 2 FBAMS1;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S(Y="":" ",1:$E(Y))
  • LAST EDITED:  SEP 21, 1990
  • HELP-PROMPT:  Answer must be 1 character in length.
1532 (4) CARD NUMBER FBAMS1;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 10, 1990
  • HELP-PROMPT:  Type a Number between 1 and 9, 0 Decimal Digits
1533 (5) MEDICAL DISTRICT NUMBER FBAMS1;4 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  SEP 11, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
1534 NAME OF COMMUNITY NH FBAMS1;5 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>23!($L(X)<3) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",$L(Y)+1,23)
  • LAST EDITED:  JUL 27, 1994
  • HELP-PROMPT:  Answer must be 3-23 characters in length.
  • DESCRIPTION:  This field contains the name of the community nursing home. Since the field is only 23 characters long abbreviations should be used. Examples are:
    N = NURSING H = HOME or HOSPITAL
    C = CONVALESCENT or CENTER S = SANITARIUM
    R = REST or REHABILITATION or RESTORIUM
    G = GERIATRIC I = INCORPERATED
    SC = SENIOR CITIZEN
    HA = HOME FOR THE AGED
1535 CITY OF COMMUNITY NH FBAMS1;6 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<3) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",$L(Y)+1,15)
  • LAST EDITED:  JUL 27, 1994
  • HELP-PROMPT:  Answer must be 3-15 characters in length.
1536 STATE CODE OF CNH FBAMS1;7 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X I $D(X) N DIC S DIC(0)="EMZ",DIC="^DIC(5," D ^DIC S DIC=DIE D DO^DIC1 K:Y<0 X I $D(X) S X=$P(Y(0),U,3) K:$L(X)'=2 X
  • LAST EDITED:  AUG 19, 1994
  • HELP-PROMPT:  Answer with the name of the state or the two digit state code.
  • EXECUTABLE HELP:  S DIC(0)="EM",DIC="^DIC(5,",D="C" D DQ^DICQ
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1537 COUNTY CODE OF CNH FBAMS1;8 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  N Z0,DIC S Z0=+$O(^DIC(5,"C",$P($G(^GECS(2100,DA,"FBAMS1")),U,7),0)) K:'Z0 X Q:'Z0!('$D(^DIC(5,Z0,1,0))) S DIC="^DIC(5,Z0,1,",DIC(0)="EMNZ" D ^DIC K:Y'>0 X I $D(X) S X=$P(Y(0),U,3) K:$L(X)'=3 X
  • LAST EDITED:  AUG 19, 1994
  • HELP-PROMPT:  Answer must be 3 numerics in length.
  • EXECUTABLE HELP:  N D,Z0 S X="?",Z0=+$O(^DIC(5,"C",$P($G(^GECS(2100,DA,"FBAMS1")),U,7),0)) Q:'Z0!('$D(^DIC(5,Z0,1,0))) S DIC(0)="QEM",DIC="^DIC(5,Z0,1," D ^DIC S DIC=DIE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1538 (10) LEVEL OF CARE FBAMS1;9 SET
************************REQUIRED FIELD************************
  • 'S' FOR SKILLED CARE;
  • 'I' FOR INTERMEDIATE CARE;
  • 'B' FOR BOTH SKILLED AND INTERMEDIATE;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(Y)
  • LAST EDITED:  SEP 21, 1990
1539 NUMBER OF BEDS IN CNH FBAMS1;10 FREE TEXT

  • INPUT TRANSFORM:  K:X'?1N.N!($L(X)>3)!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  AUG 19, 1994
  • HELP-PROMPT:  Answer must be 1-3 numbers in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1540 (11A) NO. OF INTERMEDIATE BEDS FBAMS1;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  SEP 11, 1990
  • HELP-PROMPT:  Answer must be 1-3 numbers in length.
1541 NH INSPECTED/ACCREDITED FBAMS1;12 SET
************************REQUIRED FIELD************************
  • 'I' FOR INSPECTED BY VA;
  • 'A' FOR ACCREDITED BY JCAHO;
  • 'B' FOR BOTH INSPECTED & ACCREDITED;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(Y)
  • LAST EDITED:  JUL 27, 1994
1542 PER DIEM RATE (HIGH) FBAMS1;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUL 27, 1994
  • HELP-PROMPT:  Answer must be 1-3 numbers in length. Round off to nearest dollar. If there is only one rate for this nursing home, it must be reported in this field.
1543 PER DIEM RATE (LOW) FBAMS1;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X I $D(X),X'<+$P($G(^GECS(2100,DA,"FBAMS1")),U,13) K X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  AUG 19, 1994
  • HELP-PROMPT:  Answer must be 1-3 numbers in length. Round off to nearest dollar. Cannot exceed high per dium rate. If there is only one rate it must be reported in field 'PER DIUM RATE (HIGH)'.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1544 CERT.MEDICARE/MEDICAID FBAMS1;15 SET
************************REQUIRED FIELD************************
  • '1' FOR NOT CERT.MEDICARE/MEDICAID;
  • '2' FOR CERTIFIED MEDICARE ONLY;
  • '3' FOR CERTIFIED MEDICAID ONLY;
  • '4' FOR CERT.BOTH MEDICARE/MEDICAID;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(Y)
  • LAST EDITED:  JUL 27, 1994
1545 TOTAL NUMBER OF VETS IN NH FBAMS1;16 FREE TEXT

  • INPUT TRANSFORM:  K:X'?1N.N!($L(X)>3)!($L(X)<1) X I $D(X),X>+$P($G(^GECS(2100,DA,"FBAMS1")),U,10) K X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  AUG 19, 1994
  • HELP-PROMPT:  Answer must be 1-3 numbers in length. The total number of patients cannot exceed the total number of beds reported for this nursing home.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1546 NO. VETS INTERMEDIATE HOME FBAMS1;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  SEP 11, 1990
  • HELP-PROMPT:  Answer must be 1-3 numbers in length.
1547 DATE OF LAST ASSESSMENT FBAMS1;18 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E",%DT(0)="-NOW" D ^%DT K %DT(0) S X=Y K:Y<1 X I $D(X) K:'+$E(X,4,5) X I $D(X) S X=$E(X,1,5)_"00"
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(Y,4,5)_$E(Y,2,3)
  • LAST EDITED:  NOV 06, 2000
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1548 (16) REPEAT COLUMNS 1-5 FBAMS1;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5) X
  • LAST EDITED:  SEP 11, 1990
  • HELP-PROMPT:  Answer must be 5 characters in length.
1549 (17) CARD NUMBER FBAMS1;20 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>2)!(X<2)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 11, 1990
  • HELP-PROMPT:  Type a Number between 2 and 2, 0 Decimal Digits
1550 (18) STREET ADDRESS OF NH FBAMS1;21 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • OUTPUT TRANSFORM:  I $D(GECSOT),$P(^GECS(2100,DA,"FBAMS1"),U,19)]"" S Y=Y_$E(" ",$L(Y)+1,30)
  • LAST EDITED:  NOV 23, 1990
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
1551 (19) ZIP CODE OF NH FBAMS1;22 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5) X
  • LAST EDITED:  SEP 21, 1990
  • HELP-PROMPT:  Answer must be 5 characters in length.
1552 CNH 40 BLANKS FBAMS1;23 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(GECSOT),$P(^GECS(2100,DA,"FBAMS1"),U,19)]"" S Y=$E(" ",$L(Y)+1,40)_Y
  • LAST EDITED:  NOV 23, 1990
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
1553 TRANSFERS IN FROM OTHER SITES DGAMS1D;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JAN 09, 1992
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
  • DESCRIPTION:  
    This field contains Inter-Facility action of transfers in from another VAMC.
  • TECHNICAL DESCR:  
    If this field is left blank, the output transform will fill in zeros.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1554 TRANSFERS RETD TO OTHER SITES DGAMS1D;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JAN 09, 1992
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
  • DESCRIPTION:  
    This field contains Inter-Facility action of returned to VAMC.
  • TECHNICAL DESCR:  
    If this field is left blank, the output transform will fill in zeros.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1555 TFRS PEND RTN TO OTHER SITES DGAMS1D;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JAN 09, 1992
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
  • DESCRIPTION:  
    This field contains Inter-Facility action on pending returns to VAMC.
  • TECHNICAL DESCR:  
    If this field is left blank, the output transform will fill in zeros.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1556 TRANSFERS OUT TO OTHER SITES DGAMS1D;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JAN 09, 1992
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
  • DESCRIPTION:  
    This field contains Inter-Facility action on the number of transfers out to VAMC.
  • TECHNICAL DESCR:  
    If this field is left blank, the output transform will fill in zeros.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1557 TRANSFERS RETD FROM OTH SITES DGAMS1D;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JAN 09, 1992
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
  • DESCRIPTION:  
    This field contains Inter-Facility action on the number returned from VAMC.
  • TECHNICAL DESCR:  
    If this field is left blank, the output transform will fill in with zeros.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1558 TFRS PEND RTN FROM OTH SITES DGAMS1D;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JAN 09, 1992
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
  • DESCRIPTION:  
    This field contains Inter-Facility action on the number pending return from VAMC.
  • TECHNICAL DESCR:  
    If this field is left blank, the output transform will fill in with zeros.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1559 INSUFFICIENT RCD FR VARO DGAMS1D;21 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!(X'?.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  DEC 05, 1991
  • HELP-PROMPT:  Answer must be 1-4 numbers in length.
  • DESCRIPTION:  
    This field is used for reporting the monthly workload on the number of insufficient received from VARO.
  • TECHNICAL DESCR:  
    If this field is left blank, the output transform will fill in with zeros.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1600 FEE TRANSACTION DATE FBFEE2;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=$E(Y,4,7)_$E(Y,2,3) K:Y<0 X
  • LAST EDITED:  JUL 06, 1998
  • HELP-PROMPT:  Answer must be 6 characters in length in the form MMYYDD.
  • DESCRIPTION:  
    This is the transaction date in the form MMDDYY.
1601 FEE REFERENCE NUMBER FBFEE2;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<6) X
  • LAST EDITED:  JUN 09, 1994
  • HELP-PROMPT:  Answer must be 6 characters in length.
  • DESCRIPTION:  
    This is the reference number for the transaction.
1602 FEE SYSTEM IDENTIFIER FBFEE2;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  JUN 09, 1994
  • HELP-PROMPT:  Answer must be 3 characters in length.
  • DESCRIPTION:  
    This field stores the 3 character system identifer for the code sheets. The system identifier is dependent on the Fee Basis package version number and is controlled by the Fee Basis package.
2000 CAWP DOLLAR AMOUNT PRCAAR2;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  SEP 17, 1990
  • HELP-PROMPT:  Type a Number between 1 and 999999, 0 Decimal Digits
2001 CATCQ DOLLAR AMOUNT PRCAAR2;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  SEP 17, 1990
  • HELP-PROMPT:  Type a Number between 1 and 999999, 0 Decimal Digits
2002 CATFOQ DOLLAR AMOUNT PRCAAR2;20 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 07, 1989
  • HELP-PROMPT:  Type a Number between 1 and 999999, 0 Decimal Digits
2003 CCRAQ DOLLAR AMOUNT PRCAAR2;21 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 07, 1989
  • HELP-PROMPT:  Type a Number between 1 and 999999, 0 Decimal Digits
2004 CAW DOLLAR AMT PRCAAR2;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 1 and 999999, 0 Decimal Digits
2005 REM NO OF DEBTS PRCAAR2;22 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
  • HELP-PROMPT:  Type a Number between 1 and 9999999, 0 Decimal Digits
2006 IAM NO OF DEBTS PRCAAR2;23 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
  • HELP-PROMPT:  Type a Number between 1 and 9999999, 0 Decimal Digits
2007 DAM NO OF DEBTS PRCAAR2;24 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
  • HELP-PROMPT:  Type a Number between 1 and 9999999, 0 Decimal Digits
2008 CCRAM NO OF DEBTS PRCAAR2;25 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
  • HELP-PROMPT:  Type a Number between 1 and 9999999, 0 Decimal Digits
2009 CCPRAM DOLLAR AMOUNT PRCAAR2;26 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000000",$L(Y)+1,10)_Y
  • LAST EDITED:  JUL 15, 1990
  • HELP-PROMPT:  Type a Number between 1 and 9999999999, 0 Decimal Digits
2010 CAWFM NO OF DEBTS PRCAAR2;27 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
  • HELP-PROMPT:  Type a Number between 1 and 9999999, 0 Decimal Digits
2011 CATCM NO OF DEBTS PRCAAR2;28 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
  • HELP-PROMPT:  Type a Number between 1 and 9999999, 0 Decimal Digits
2012 CATFOM NO OF DEBTS PRCAAR2;29 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
  • HELP-PROMPT:  Type a Number between 1 and 9999999, 0 Decimal Digits
2013 REM DOLLAR AMOUNT PRCAAR2;30 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000000",$L(Y)+1,10)_Y
  • HELP-PROMPT:  Type a Number between 1 and 9999999999, 0 Decimal Digits
2014 IAM DOLLAR AMOUNT PRCAAR2;31 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000000",$L(Y)+1,10)_Y
  • HELP-PROMPT:  Type a Number between 1 and 9999999999, 0 Decimal Digits
2015 DEM DOLLAR AMOUNT PRCAAR2;32 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000000",$L(Y)+1,10)_Y
  • HELP-PROMPT:  Type a Number between 1 and 9999999999, 0 Decimal Digits
2016 CCRAM DOLLAR AMOUNT PRCAAR2;33 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000000",$L(Y)+1,10)_Y
  • HELP-PROMPT:  Type a Number between 1 and 9999999999, 0 Decimal Digits
2017 CAWF DOLLAR AMOUNT PRCAAR2;34 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000000",$L(Y)+1,10)_Y
  • HELP-PROMPT:  Type a Number between 1 and 9999999999, 0 Decimal Digits
2018 CAWPM DOLLAR AMOUNT PRCAAR21;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000000",$L(Y)+1,10)_Y
  • HELP-PROMPT:  Type a Number between 1 and 9999999999, 0 Decimal Digits
2019 CATCM DOLLAR AMOUNT PRCAAR21;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000000",$L(Y)+1,10)_Y
  • HELP-PROMPT:  Type a Number between 1 and 9999999999, 0 Decimal Digits
2020 CATFOM DOLLAR AMOUNT PRCAAR21;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000000",$L(Y)+1,10)_Y
  • HELP-PROMPT:  Type a Number between 1 and 9999999999, 0 Decimal Digits
2021 PAID TRANSMISSION NUMBER PRCCCA2;27 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  OCT 25, 1990
  • HELP-PROMPT:  Enter PAID transmission number from 0 to 999.
2022 C&A DA PRCCCA2;28 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?1"DA") X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y="DA"
  • LAST EDITED:  OCT 25, 1990
  • HELP-PROMPT:  Answer must be 2 characters in length.
2023 MONTH PRCCCA2;29 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>12)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  OCT 25, 1990
  • HELP-PROMPT:  Type a Number between 1 and 12, 0 Decimal Digits
2024 DAY PRCCCA2;30 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>31)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  OCT 25, 1990
  • HELP-PROMPT:  Enter Last Day of Month.
2025 YEAR PRCCCA2;31 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N!(X?1"00")) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  OCT 25, 1990
  • HELP-PROMPT:  Enter last 2 digits of the year for which this card is prepared.
2026 NO. OF 10-2418A TRANSMITTED PRCCCA2;32 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  OCT 25, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2027 TOTAL PAY AND NON PAY VISITS PRCCCA2;33 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  OCT 25, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
2028 BLANK-6 PRCCCA2;34 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<6) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,6-$L(Y))
  • LAST EDITED:  OCT 25, 1990
  • HELP-PROMPT:  Answer must be 6 characters in length.
2029 BLANK-3 PRCCCA2;35 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",1,3-$L(Y))
  • LAST EDITED:  OCT 25, 1990
  • HELP-PROMPT:  Answer must be 3 characters in length.
2200 FORM NUMBER GECOHBHC2;39 SET
  • '3' FOR FORM 3;
  • '4' FOR FORM 4;
  • '5' FOR FORM 5;

  • LAST EDITED:  JUL 17, 1990
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheet.
2200.01 DATE EVALUATED GECOHBHC2;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E",%DT(0)="2770101" D ^%DT K %DT(0) S X=Y K:Y<1 X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(Y,4,7)_$E(Y,2,3),Y=$E(" ",$L(Y)+1,6)_Y
  • LAST EDITED:  NOV 06, 2000
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheets. The date the evaluation was begun. Month, Day, Year. Ex: 010190 for Jan 1, 1990.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2200.02 STATE CODE GECOHBHC2;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  JUL 16, 1990
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheet. The two digit code assigned by the VA to the state the patient lives in.
2200.03 COUNTY CODE GECOHBHC2;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUL 16, 1990
  • HELP-PROMPT:  Answer must be 3 characters in length.
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheet. The three digit code assigned by the VA to the county the patient lives in.
2200.04 ZIP CODE GECOHBHC2;4 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y_" "
  • LAST EDITED:  JUL 17, 1990
  • HELP-PROMPT:  The patients zip code, 5 digits in length.
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheet. The patients zip code, 5 digits in length.
2200.05 ELIGIBILITY GECOHBHC2;5 SET
************************REQUIRED FIELD************************
  • '01' FOR SERVICE CONNECTED 50% OR MORE;
  • '02' FOR AID & ATTENDANCE OR HOUSEBOUND;
  • '03' FOR SERVICE CONNECTED LESS THAN 50%;
  • '04' FOR NON-SERVICE CONNECTED, RECEIVING VA PENSION;
  • '05' FOR OTHER NON-SERVICE CONNECTED;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  JUL 16, 1990
  • DESCRIPTION:  Used by the Hospital Based Home Care code sheet. Choose from the following 5 categories [01]=service connected 50% or more, [02]=aid & attendance or housebound, [03]=service connected less than 50%, [04]=non-service
    connected, receiving a VA pension, [05]=other non-service connected.
2200.06 BIRTH YEAR GECOHBHC2;6 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  JUL 06, 1998
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheets. The terminal two digits of the year of birth of the patient.
2200.07 PERIOD OF SERVICE GECOHBHC2;7 SET
************************REQUIRED FIELD************************
  • '00' FOR KOREA;
  • '01' FOR WORLD WAR I;
  • '02' FOR WORLD WAR II;
  • '03' FOR SPANISH & AMERICAN;
  • '04' FOR PRE-KOREA (PEACETIME);
  • '05' FOR POST KOREA;
  • '07' FOR VIETNAM;
  • '08' FOR POST VIETNAM;
  • '10' FOR OTHER, NONE;
  • '09' FOR NOT DETERMINED;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,2)_Y
  • LAST EDITED:  JUL 17, 1990
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheets.
2200.08 SEX GECOHBHC2;8 SET
************************REQUIRED FIELD************************
  • '1' FOR MALE;
  • '2' FOR FEMALE;

  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUL 16, 1990
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheets.
2200.09 RACE/ETHNICITY GECOHBHC2;9 SET
************************REQUIRED FIELD************************
  • '1' FOR WHITE;
  • '2' FOR BLACK;
  • '3' FOR HISPANIC ORGIN;
  • '4' FOR AMERICAN INDIAN/ALASKAN NATIVE;
  • '5' FOR ASIAN/PACIFIC ISLANDER;
  • '9' FOR NOT DETERMINED;

  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUL 16, 1990
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheets.
2200.1 MARITAL STATUS GECOHBHC2;10 SET
************************REQUIRED FIELD************************
  • '1' FOR MARRIED;
  • '2' FOR WIDOWED;
  • '3' FOR SEPARATED;
  • '4' FOR DIVORCED;
  • '5' FOR NEVER MARRIED;
  • '9' FOR NOT DETERMINED;

  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUL 16, 1990
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheets.
2200.11 USUAL LIVING ARRANGEMENTS GECOHBHC2;11 SET
************************REQUIRED FIELD************************
  • '1' FOR ALONE;
  • '2' FOR WITH SPOUSE;
  • '3' FOR WITH RELATIVES;
  • '4' FOR WITH NON RELATIVES;
  • '5' FOR GROUP QUARTERS, NOT HEALTH RELATED;
  • '9' FOR NOT DETERMINED;

  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUL 16, 1990
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheets.
2200.12 LAST AGENCY PROVIDING CARE GECOHBHC2;12 SET
************************REQUIRED FIELD************************
  • '1' FOR VA PROVIDED CARE (EXCLUDING VA FEE BASIS (CONTRACT);
  • '2' FOR NON VA CARE;
  • '3' FOR VA FEE BASIS/CONTRACT;

  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUL 16, 1990
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheets.
2200.13 TYPE OF AGENCY GECOHBHC2;13 SET
************************REQUIRED FIELD************************
  • '1' FOR GENERAL HOSPITAL;
  • '2' FOR SPECIALTY HOSPITAL;
  • '3' FOR NURSING HOME;
  • '4' FOR RESIDENTIAL CARE FACILITY;
  • '5' FOR HOSPICE;
  • '6' FOR COMMUNITY BASED SERVICES;
  • '7' FOR SELF/FAMILY NO/REG SOURCE;
  • '9' FOR NOT DETERMINED;

  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUL 16, 1990
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheets.
2200.14 ACTION GECOHBHC2;14 SET
************************REQUIRED FIELD************************
  • '1' FOR ADMIT TO HBHC;
  • '2' FOR REJECT FROM HBHC;

  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUL 16, 1990
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheets.
2200.15 PRIMARY REASON FOR REJECTION GECOHBHC2;15 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUL 17, 1990
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheets.
2200.16 DISPOSITION OF REJECTION GECOHBHC2;16 SET
************************REQUIRED FIELD************************
  • '1' FOR REFERRED BACK TO REFERRAL SOURCE;
  • '2' FOR DISPOSITION MADE BY HBHC;

  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUL 16, 1990
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheets.
2200.17 PATIENTS FULL NAME GECOHBHC2;17 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUL 16, 1990
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheets.
2200.18 SOCIAL SECURITY NUMBER GECOHBHC2;18 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<9) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUL 16, 1990
  • HELP-PROMPT:  Answer must be 9 characters in length.
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheets.
2200.19 HBHC ADMISSION DATE GECOHBHC2;19 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(Y,4,5)_$E(Y,6,7)_$E(Y,2,3),Y=$E(" ",$L(Y)+1,6)_Y
  • LAST EDITED:  JUL 06, 1998
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheets.
2200.2 PRIMARY DIAGNOSIS GECOHBHC2;20 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<4) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUL 16, 1990
  • HELP-PROMPT:  Answer must be 4-6 characters in length.
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheets.
2200.21 VISION (WITH LENSES IF WORN) GECOHBHC2;21 SET
************************REQUIRED FIELD************************
  • '1' FOR NORMAL OR MINIMAL LOSS;
  • '2' FOR MODERATE LOSS;
  • '3' FOR SEVERE LOSS;
  • '4' FOR TOTAL BLINDNESS;
  • '9' FOR NOT DETERMINED;

  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUL 16, 1990
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheets.
2200.22 HEARING (WITH AID IF WORN) GECOHBHC2;22 SET
************************REQUIRED FIELD************************
  • '1' FOR NORMAL OR MINIMAL LOSS;
  • '2' FOR MODERATE LOSS;
  • '3' FOR SEVERE LOSS;
  • '4' FOR TOTAL DEAFNESS;
  • '9' FOR NOT DETERMINED;

  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUL 16, 1990
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheets.
2200.23 EXPRESSIVE COMMUNICATION GECOHBHC2;23 SET
************************REQUIRED FIELD************************
  • '1' FOR SPEAKS AND IS USUALLY UNDERSTOOD;
  • '2' FOR SPEAKS BUT IS ONLY UNDERSTOOD WITH DIFF;
  • '3' FOR USES ONLY SIGN LANG, SYM, OR WRITING;
  • '4' FOR USES ONLY GESTURES, GRUNTS, OR PRIM SYM;
  • '5' FOR DOES NOT CONVEY NEEDS;
  • '9' FOR NOT DETERMINED;

  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUL 16, 1990
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheets.
2200.24 RECEPTIVE COMMUNICATION GECOHBHC2;24 SET
************************REQUIRED FIELD************************
  • '1' FOR UNDERSTANDS ORAL COMMUN;
  • '2' FOR LIMITED COMPRE OF ORAL COMMUN;
  • '3' FOR DEPENDS ON LIP READING, WRITTEN MAT, OR SIGN LANG;
  • '4' FOR UNDERSTANDS PRIM GESTURES, PICTURES, ETC;
  • '5' FOR DOES NOT UNDERSTAND;
  • '9' FOR NOT DETERMINED;

  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUL 16, 1990
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheets.
2200.25 BATHING/SHOWER ACTIVITY GECOHBHC2;25 SET
************************REQUIRED FIELD************************
  • '1' FOR NO HELP;
  • '2' FOR RECEIVES HELP;
  • '3' FOR NOT DONE OR DONE WITHOUT PATIENT PARTICIPATION;
  • '9' FOR NOT DETERMINED;

  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUL 16, 1990
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheets.
2200.26 DRESSING ACTIVITY GECOHBHC2;26 SET
************************REQUIRED FIELD************************
  • '1' FOR NO HELP;
  • '2' FOR RECEIVES HELP;
  • '3' FOR NOT DONE OR DONE WITHOUT PATIENT PARTICIPATION;
  • '9' FOR NOT DETERMINED;

  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheets.
2200.27 USING TOILET ACTIVITY GECOHBHC2;27 SET
************************REQUIRED FIELD************************
  • '1' FOR NO HELP;
  • '2' FOR RECEIVES HELP;
  • '3' FOR NOT DONE OR DONE WITHOUT PATIENT PARTICIPATION;
  • '9' FOR NOT DETERMINED;

  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheets.
2200.28 TRANSFER ACTIVITY GECOHBHC2;28 SET
************************REQUIRED FIELD************************
  • '1' FOR NO HELP;
  • '2' FOR RECEIVES HELP;
  • '3' FOR NOT DONE OR DONE WITHOUT PATIENT PARTICIPATION;
  • '9' FOR NOT DETERMINED;

  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheets.
2200.29 EATING ACTIVITY GECOHBHC2;29 SET
************************REQUIRED FIELD************************
  • '1' FOR NO HELP;
  • '2' FOR RECEIVES HELP;
  • '3' FOR NOT DONE OR DONE WITHOUT PATIENT PARTICIPATION;
  • '9' FOR NOT DETERMINED;

  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheets.
2200.3 WALKING ACTIVITY GECOHBHC2;30 SET
************************REQUIRED FIELD************************
  • '1' FOR NO HELP;
  • '2' FOR RECEIVES HELP;
  • '3' FOR NOT DONE OR DONE WITHOUT PATIENT PARTICIPATION;
  • '9' FOR NOT DETERMINED;

  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheets.
2200.31 CONTINENCE (BOWEL) GECOHBHC2;31 SET
************************REQUIRED FIELD************************
  • '1' FOR CONTINENT OR OSTOMY SELF CARE;
  • '2' FOR INCONTINENT OCCASIONALLY;
  • '3' FOR INCONTINENT OR OSTOMY NOT SELF CARE;
  • '9' FOR NOT DETERMINED;

  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUL 16, 1990
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheets.
2200.32 CONTINENCE (BLADDER) GECOHBHC2;32 SET
************************REQUIRED FIELD************************
  • '1' FOR CONTINENT OR CATHETER SELF CARE;
  • '2' FOR INCONTINENT OCCASIONALLY;
  • '3' FOR INCONTINENT OR CATHETER NOT SELF CARE;
  • '9' FOR NOT DETERMINED;

  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUL 16, 1990
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheets.
2200.33 MOBILITY (WITH MECHANICAL AID) GECOHBHC2;33 SET
************************REQUIRED FIELD************************
  • '1' FOR GOES OUTDOORS WITHOUT HELP;
  • '2' FOR GOES OUTDOORS WITH HELP;
  • '3' FOR CONFINED INDOORS, NOT BED DISABLED;
  • '4' FOR BED DISABLED;
  • '9' FOR NOT DETERMINED;

  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUL 16, 1990
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheets.
2200.34 ADAPTIVE TASKS GECOHBHC2;34 SET
************************REQUIRED FIELD************************
  • '1' FOR NO HELP;
  • '2' FOR REQUIRED HELP;
  • '9' FOR NOT DETERMINED;

  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUL 16, 1990
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheets.
2200.35 BEHAVIOR PROBLEMS GECOHBHC2;35 SET
************************REQUIRED FIELD************************
  • '1' FOR DOES NOT EXHIBIT THIS CHARACTERISTIC;
  • '2' FOR EXHIBITS THIS CHARACTERISTIC;
  • '9' FOR NOT DETERMINED;

  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUL 16, 1990
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheets.
2200.36 DISORIENTATION/MEMORY/IMPAIR GECOHBHC2;36 SET
************************REQUIRED FIELD************************
  • '1' FOR DOES NOT EXHIBIT THIS CHARACTERISTIC;
  • '2' FOR EXHIBITS THIS CHARACTERISTIC;
  • '9' FOR NOT DETERMINED;

  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUL 16, 1990
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheets.
2200.37 DISTURBANCE OF MOOD GECOHBHC2;37 SET
************************REQUIRED FIELD************************
  • '1' FOR DOES NOT EXHIBIT THIS CHARACTERISTIC;
  • '2' FOR EXHIBITS THIS CHARACTERISTIC;
  • '9' FOR NOT DETERMINED;

  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUL 16, 1990
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheets.
2200.38 CAREGIVER LIMITATIONS GECOHBHC2;38 SET
************************REQUIRED FIELD************************
  • '1' FOR MINIMAL OR NONE;
  • '2' FOR MODERATE;
  • '3' FOR MODERATELY SEVERE;
  • '4' FOR NO CAREGIVER;
  • '8' FOR NOT DETERMINED;

  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUL 16, 1990
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheets.
2200.39 PAD HBHC5 46 SPACES GECOHBHC2;40 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>46!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",$L(Y)+1,46)
  • LAST EDITED:  SEP 20, 1990
  • HELP-PROMPT:  Answer must be 1-46 characters in length.
2200.4 PROVIDER #, DIGIT 1 GECOHBHC2A;1 SET
************************REQUIRED FIELD************************
  • '1' FOR NONSTUDENTS;
  • '2' FOR STUDENTS;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y="" Y=" "
  • LAST EDITED:  JUL 17, 1990
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheet.
2200.41 PROVIDER #, DIGIT 2 GECOHBHC2A;2 SET
************************REQUIRED FIELD************************
  • '0' FOR RN;
  • '1' FOR LPN, LVN, HOME HEALTH AIDE OR TECH, NURSING ASSISTANT;
  • '2' FOR SOCIAL WORKER;
  • '3' FOR OT,PT,CT, REHAB THERAPIST;
  • '4' FOR DIETITIAN, NUTRITIONIST;
  • '5' FOR PHYSICIAN;
  • '6' FOR NURSE PRACTITIONER;
  • '7' FOR CLINICAL PHARMACIST;
  • '8' FOR OTHER;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y="" Y=" "
  • LAST EDITED:  JUL 17, 1990
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheet.
2200.42 PROVIDER #, DIGIT 3 GECOHBHC2A;3 SET
************************REQUIRED FIELD************************
  • '0' FOR FIRST STAFF MEMBER IN THE DISCIPLINE;
  • '1' FOR SECOND STAFF;
  • '2' FOR THIRD STAFF;
  • '3' FOR FOURTH STAFF;
  • '4' FOR FIFTH STAFF;
  • '5' FOR SIXTH STAFF;
  • '6' FOR SEVENTH STAFF;
  • '7' FOR EIGHT STAFF;
  • '8' FOR NINTH STAFF;
  • '9' FOR TENTH STAFF;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y="" Y=" "
  • LAST EDITED:  JUL 17, 1990
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheet.
2200.43 DATE OF VISIT GECOHBHC2A;4 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(Y,4,7)_$E(Y,2,3),Y=$E(" ",$L(Y)+1,6)_Y
  • LAST EDITED:  JUL 06, 1998
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheet.
2200.44 PATIENTS LAST NAME GECOHBHC2A;5 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",$L(Y)+1,11)
  • LAST EDITED:  JUL 17, 1990
  • HELP-PROMPT:  Answer must be 1-11 characters in length.
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheet.
2200.45 TYPE OF VISIT GECOHBHC2A;6 SET
************************REQUIRED FIELD************************
  • '1' FOR HOME VISIT;
  • '2' FOR PRE-PLACEMENT HOME VISIT;
  • '3' FOR WARD VISIT;
  • '4' FOR OUTPATIENT VISIT;
  • '6' FOR POST DISCHARGE FOLLOW-UP OFF VA GROUNDS;
  • '7' FOR POST VISIT FOLLOW-UP ON VA GROUNDS;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y="" Y=" " S Y=" "_Y
  • LAST EDITED:  JUL 17, 1990
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheet.
2200.5 DISCHARGE DATE GECOHBHC2A;7 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(Y,4,7)_$E(Y,2,3),Y=$E(" ",$L(Y)+1,6)_Y
  • LAST EDITED:  JUL 06, 1998
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheet.
2200.51 DISCHARGE STATUS GECOHBHC2A;8 SET
************************REQUIRED FIELD************************
  • '1' FOR TRANSFERRED TO OTHER PROVIDER;
  • '2' FOR ANTICIPATED INSTITUTIONALIZATION;
  • '3' FOR FAMILY OR SELF CARE/NO REGULAR SOURCE;
  • '4' FOR DIED ON HBHC;
  • '6' FOR MOVED AWAY/LOST TO CONTACT;
  • '9' FOR NOT DETERMINED;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y="" Y=" "
  • LAST EDITED:  JUL 17, 1990
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheet.
2200.52 TRANSFER DESTINATION GECOHBHC2A;9 SET
************************REQUIRED FIELD************************
  • '1' FOR VA PROVIDED CARE;
  • '2' FOR NON VA CARE;
  • '3' FOR VA FEE BASIS/CONTRACT;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y="" Y=" "
  • LAST EDITED:  JUL 17, 1990
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheet.
2200.53 TYPE OF AGENCY GECOHBHC2A;10 SET
************************REQUIRED FIELD************************
  • '1' FOR GENERAL HOSPITAL;
  • '2' FOR SPECIALTY HOSPITAL;
  • '3' FOR NURSING HOME;
  • '4' FOR RES CARE FACILITY/DOM;
  • '5' FOR HOSPICE;
  • '6' FOR COMMUNITY BASED SERVICE;
  • '9' FOR NOT DETERMINED;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y="" Y=" "
  • LAST EDITED:  JUL 17, 1990
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheet.
2200.54 PAD 2 SPACES GECOHBHC2A;11 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=" "
  • LAST EDITED:  JUL 18, 1990
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    Used by the Hospital Based Home Care code sheet.
2200.55 PAD HBHC 73 SPACES GECOHBHC2A;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>73!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",$L(Y)+1,73)
  • LAST EDITED:  SEP 20, 1990
  • HELP-PROMPT:  Answer must be 1-73 characters in length.
2201.01 TRANSACTION NUMBER GECOFORM2;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<111)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUL 18, 1990
  • HELP-PROMPT:  Type a Number between 111 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    Form and Form Letter Requisition Code Sheet - LOG 1.
2201.02 TYPE GECOFORM2;2 SET
************************REQUIRED FIELD************************
  • 'R' FOR REGULAR SUBMISSION;
  • 'E' FOR EMERGENCY;
  • 'A' FOR ACCOUNTABLE FORM;
  • 'S' FOR OFF SCHEDULE;
  • 'I' FOR INSUFFICIENT INITIAL DISTRIBUTION;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y="" Y=" "
  • LAST EDITED:  JUL 18, 1990
  • DESCRIPTION:  
    Form and Form Letter Requisition Code Sheet - LOG 1.
2201.03 REQUISITION NUMBER GECOFORM2;3 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  JUL 18, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    Form and Form Letter Requisition Code Sheet - LOG 1.
2201.04 FTS TELEPHONE NUMBER GECOFORM2;4 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<1111111)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=" "_$E("0000000",$L(Y)+1,7)_Y
  • LAST EDITED:  SEP 20, 1990
  • HELP-PROMPT:  Type a Number between 1111111 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    Form and Form Letter Requisition Code Sheet - LOG 1.
2201.06 DEPOT STOCK NUMBER GECOFORM2;6 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  NOV 01, 1990
  • HELP-PROMPT:  Answer must be 1-6 characters in length.
  • DESCRIPTION:  
    Form and Form Letter Requisition Code Sheet - LOG 1.
2201.08 UNIT OF USE GECOFORM2;7 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,2)_Y
  • LAST EDITED:  JUL 18, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    Form and Form Letter Requisition Code Sheet - LOG 1.
2201.09 QUANTITY ORDERED GECOFORM2;8 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000000",$L(Y)+1,8)_Y
  • LAST EDITED:  JUL 18, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
  • DESCRIPTION:  
    Form and Form Letter Requisition Code Sheet - LOG 1.
2201.1 PAD FORM 7 SPACES GECOFORM2;9 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<7) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,7)_Y
  • LAST EDITED:  JUL 18, 1990
  • HELP-PROMPT:  Answer must be 7 characters in length.
  • DESCRIPTION:  
    Form and Form Letter Requisition Code Sheet - LOG 1.
2201.11 PAD FORM 35 SPACES (AT END) GECOFORM2;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<1) X
  • LAST EDITED:  SEP 20, 1990
  • HELP-PROMPT:  Answer must be 1-35 characters in length.
2401 ASSISTED (FULL CARE)-DIAL. MCAMS2A;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2402 LIMITED/SELF CARE DIALY. MCAMS2A;2 NUMBER

  • DIALYSIS/BEDS/FACILITIES:  LIMITED/SELF-CARE
  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2403 HOME (SELF) DIALY. TRAINING MCAMS2A;3 NUMBER

  • DIALYSIS/BEDS/FACILITIES:  HOME (SELF) DIALYSIS TRAINING
  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2404 MAINT. DIALY. SHIFTS/DAY MCAMS2A;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  JUN 29, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9.9, 1 Decimal Digit
2405 OPERATING DAYS PER WEEK MCAMS2A;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
2406 REC. CARE FROM RPTG. UNIT MCAMS2A;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2407 CARE IN NON-VA UNIT MCAMS2A;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2408 ADMITTED FOR FIRST TIME(ADD.) MCAMS2A;8 NUMBER

  • ADDITIONS DURING REPORTING PERIOD:  ADMITTED FOR FIRST TIME
  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2409 TRANS. FROM OTHER VA DIALY. MCAMS2A;9 NUMBER

  • ADDITIONS DURING REPORTING PERIOD:  TRANSFERRED FROM OTHER VA DIALYSIS PROGRAM
  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2410 RETURNING/ OTHER VA/NON VA MCAMS2A;10 NUMBER

  • ADDITIONS DURING REPORTING PERIOD:  RETURNING FROM OTHER VA & NON-VA PROGRAMS
  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2411 RETURNING-TRANSPLANTATION MCAMS2A;11 NUMBER

  • ADDITIONS DURING REPORTING PERIOD:  RETURNING AFTER TRANSPLANTATION
  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2412 OTHER ADM./RE-ADM. (DIALY.) MCAMS2A;12 NUMBER

  • ADDITIONS DURING REPORTING PERIOD:  OTHER ADMISSIONS/READMISSIONS
  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2413 DEATHS (DIALY.) MCAMS2A;13 NUMBER

  • LOSSES:  DEATHS
  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2414 RECOVERED KIDNEY FUNCTION MCAMS2A;14 NUMBER

  • LOSSES:  RECOVERED KIDNEY FUNCTION
  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2415 RECEIVED TRANSPLANT MCAMS2A;15 NUMBER

  • LOSSES:  RECEIVED TRANSPLANT
  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2416 TRANSFERRED TO OTHER VA DIAL. MCAMS2A;16 NUMBER

  • LOSSES:  TRANSFERRED TO OTHER VA DIALYSIS PROGRAM
  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2417 DISCHARGED TO NON-VA MCAMS2A;17 NUMBER

  • LOSSES:  DISCHARGED TO NON-VA CARE
  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2418 OTHER LOSSES (DIALY.) MCAMS2A;18 NUMBER

  • LOSSES:  OTHER
  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2419 ACUTE ASSISTED HEMODIALYSIS MCAMS2A;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2420 ACUTE ASSISTED PERI. DIALY. MCAMS2A;20 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2421 CHRONIC ASSISTED HEMO. INP. MCAMS2A;21 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2422 CHRONIC ASSISTED HEMO. OUTPT. MCAMS2A;22 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2423 CHRONIC ASSISTED PERI. INP. MCAMS2A;23 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2424 CHRONIC ASSISTED PERI. OUTP. MCAMS2A;24 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2425 LIMITED/SELF CARE HEMO. INP. MCAMS2A;25 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2426 LIMITED/SELF CARE HEMO. OUTPT. MCAMS2A;26 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2427 LIMITED/SELF CARE PERI. INP. MCAMS2A;27 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2428 LIMITED/SELF CARE PERI. OUTPT. MCAMS2A;28 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2429 HEMO. INP. (HOME TRAINING) MCAMS2A;29 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2430 HEMO OUTPT. (HOME TRAINING) MCAMS2A;30 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2431 PERI. INP. (HOME TRAINING) MCAMS2A;31 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2432 PERI. OUTPT. (HOME TRAINING) MCAMS2A;32 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2433 HEMO. (HOME DIALYSIS) MCAMS2A;33 NUMBER

  • HOME DIALYSIS:  HEMODIALYSIS
  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2434 PERI. (HOME DIALYSIS) MCAMS2A;34 NUMBER

  • HOME DIALYSIS:  PERITONEAL DIALYSIS
  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2435 TOTAL DIALY. PAT. REMAINING MCAMS2A;35 NUMBER

  • TOTAL DIALYSIS PATIENT REMAINING:  END OF PERIOD
  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2436 CONTRACT/FEE BASIS (HEMO.) MCAMS2A;36 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2437 CONTRACT/FEE BASIS (PERI.) MCAMS2A;37 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2438 CONTRACT/FEE BASIS (TOTAL) MCAMS2A;38 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2439 S-C FOR RENAL DISEASE MCAMS2A;39 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2440 S-C OTHER (DIALY.) MCAMS2A;40 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2441 NON-VA PATIENTS TREATED MCAMS2A;41 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2442 AWAITING TRANSPLANT MCAMS2A;42 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2443 ACUTE ASS. HEMO. TREATMENTS MCAMS2A;43 NUMBER

  • DIALYSIS CENTER TREATMENTS:  ACUTE ASSISTED HEMODIALYSIS
  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2444 CHRONIC ASS. HEMO. TREATMENTS MCAMS2A;44 NUMBER

  • DIALYSIS CENTER TREATMENTS:  CHRONIC ASSISTED HEMODIALYSIS
  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2445 LIMITED/SELF HEMO. TREATMENTS MCAMS2A;45 NUMBER

  • DIALYSIS CENTER TREATMENTS:  LIMITED/SELF HEMODIALYSIS
  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2446 ACUTE ASS. PERI. TREATMENTS MCAMS2A;46 NUMBER

  • DIALYSIS CENTER TREATMENTS:  ACUTE ASSISTED PERITONEAL DIALYSIS
  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2447 CHRONIC ASS. PERI. TREATMENTS MCAMS2A;47 NUMBER

  • DIALYSIS CENTER TREATMENTS:  CHRONIC ASSISTED PERITONEAL DIALYSIS
  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2448 LIMITED/SELF PERI. TREATMENTS MCAMS2A;48 NUMBER

  • DIALYSIS CENTER TREATMENTS:  LIMITED/SELF PERITONEAL DIALYSIS
  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2449 TOTAL DIALY. CENTER TREATMENTS MCAMS2A;49 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2450 AVG. TREATMENTS/BED/WEEK MCAMS2A;50 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2451 HEMO. TRAINING TREATMENTS MCAMS2A;51 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2452 PERIDIAL. TRAINING TREATMENTS MCAMS2A;52 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2453 HOME HEMODIALYSIS TREATMENTS MCAMS2A;53 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2454 HOME PERIDIAL. TREATMENTS MCAMS2A;54 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2455 TREATMENTS ON NON-VETERANS MCAMS2A;55 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2456 HOME HEMO. (INIT. TRN. COMP.) MCAMS2A;56 NUMBER

  • PATIENTS COMPLETING INITIAL TRAINING:  HOME HEMODIALYSIS
  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2457 LIMITED/SELF HEMO. INIT. TRNG. MCAMS2A;57 NUMBER

  • PATIENTS COMPLETING INITIAL TRAINING:  LIMITED/SELF HEMODIALYSIS
  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2458 HOME PERI. INIT. TRNG. COMP. MCAMS2A;58 NUMBER

  • PATIENTS COMPLETING INITIAL TRAINING:  HOME PERITONEAL DIALYSIS
  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2459 LIMITED/SELF INIT. TRNG. MCAMS2B;1 NUMBER

  • PATIENTS COMPLETING INITIAL TRAINING:  LIMITED/SELF PERITONEAL DIALYSIS
  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2460 TISSUE TYPING TESTS MCAMS2B;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2461 FEE PAID (HEMO.-OWN FACILITY) MCAMS2B;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2462 FEE PAID (PERI.-OWN FACILITY) MCAMS2B;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2463 FEE PAID (HEMO.-OTHER FAC.) MCAMS2B;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2464 FEE PAID (PERI.-OTHER FAC.) MCAMS2B;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2473 TOTAL CRF. PATIENTS DIALYZED MCAMS2B;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
2474 DIALYZED-DIABETIC MCAMS2B;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2475 DIALYZED-FRACTION DIABETIC MCAMS2B;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9.999)!(X<0)!(X?.E1"."4N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,1,3),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 29, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9.999, 3 Decimal Digits
2476 DIALYZED-AGE 55 OR OVER MCAMS2B;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2477 DIALYZED-FRACTION 55 OR OVER MCAMS2B;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9.999)!(X<0)!(X?.E1"."4N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,1,3),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 29, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9.999, 3 Decimal Digits
2478 DIALYZED-90 DAYS OR LESS MCAMS2B;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2479 DIAL.-DEATHS 90 DAYS OR LESS MCAMS2B;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2480 DIALY.-FRACTION CRF < 91 DAYS MCAMS2B;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9.999)!(X<0)!(X?.E1"."4N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,1,3),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 29, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9.999, 3 Decimal Digits
2481 DIALYZED OVER 90 DAYS MCAMS2B;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2482 DIAL.-DEATHS OVER 90 DAYS MCAMS2B;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2483 FRACTION CRF > 90 DAYS MCAMS2B;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9.999)!(X<0)!(X?.E1"."4N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,1,3),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 29, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9.999, 3 Decimal Digits
2484 DIALYZED-TOTAL ARF PATIENTS MCAMS2B;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
2485 DIALYZED-DEATHS (ARF) MCAMS2B;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2486 DIALYZED-FRACTION CRF-ARF MCAMS2B;20 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9.999)!(X<0)!(X?.E1"."4N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,1,3),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 29, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9.999, 3 Decimal Digits
2500 BEDS MCAMS2;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2501 ADMISSIONS MCAMS2;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2502 DISCHARGES-MEDICINE MCAMS2;3 NUMBER

  • LOSSES:  DISCHARGES
  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2503 TRANSFERS OUT TO ANOTHER ICU MCAMS2;4 NUMBER

  • LOSSES:  TRANSFERS OUT TO ANOTHER ICU
  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2504 TRANSFERS OUT TO WARD MCAMS2;5 NUMBER

  • LOSSES:  TRANSFERS OUT TO WARD
  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2505 DEATHS IN ICU MCAMS2;6 NUMBER

  • LOSSES:  DEATHS IN ICU
  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2506 PATIENTS REMAINING MCAMS2;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2507 PATIENT DAYS OF CARE (M) MCAMS2;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
2508 CARDIOPULMONARY RESUSCITATIONS MCAMS2;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
2509 DESIGNATED BEDS (MED/SUR) MCAMS2;10 NUMBER

  • DESIGNATED BEDS IN GENERAL PURPOSE UNITS:  MEDICAL/SURGICAL
  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,6)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2510 DESIGNATED BEDS (MED/COR) MCAMS2;11 NUMBER

  • DESIGNATED BEDS IN GENERAL PURPOSE UNITS:  MEDICAL/CORONARY
  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2511 DESIGNATED BEDS (MED/SURG/COR) MCAMS2;12 NUMBER

  • DESIGNATED BEDS IN GENERAL PURPOSE UNITS:  MED/SURG/CORONARY
  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2512 FTEE-PHYSICIANS MCAMS2;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 29, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
2513 FTEE-PHYSICIAN ASSISTANTS MCAMS2;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 29, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
2514 FTEE-NURSES MCAMS2;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 29, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
2515 FTEE-NURSING ASSISTANTS MCAMS2;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 29, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
2516 FTEE-NON PROFESSIONAL MCAMS2;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 29, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
2517 FTEE-ADMINISTRATIVE MCAMS2;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 29, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
2518 FTEE-OTHER MCAMS2;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 29, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
2519 FTEE-DIALYSIS TECH/THERAPIST MCAMS2;20 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 29, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
2520 FTEE-SOCIAL WORKERS MCAMS2;21 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 29, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
2521 FTEE-DIETITIANS MCAMS2;22 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 29, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
2522 FTEE-TECHNICIANS MCAMS2;23 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 29, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
2523 FTEE-CLERKS MCAMS2;24 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 29, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
2601 AUTHORIZED FTEE MCAMS2C;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 29, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99.9, 1 Decimal Digit
2602 ACTUAL FTEE MCAMS2C;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 29, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99.9, 1 Decimal Digit
2603 ON DUTY HOURS-AUDIOLOGIST MCAMS2C;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2604 ON DUTY HRS-SPEECH PATHOLOGIST MCAMS2C;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2605 HEARING AID EVALUATIONS MCAMS2C;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2606 ASS. OF SOCIAL EFFICIENCY MCAMS2C;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2607 CONSULTS-AUDIOLOGY MCAMS2C;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2608 AURAL REHAB PATIENTS MCAMS2C;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2609 CASES COMPLETED MCAMS2C;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2610 CASE HISTORIES-AUDIOLOGY MCAMS2C;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2611 SCREENING-AUDIOLOGY MCAMS2C;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2612 PURE TONE AIR CONDUCTION MCAMS2C;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2613 PURE TONE BONE CONDUCTION MCAMS2C;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2614 SPEECH AUDIOMETRY MCAMS2C;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2615 STENGER TESTS MCAMS2C;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2616 TONE DECAY MCAMS2C;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2617 OTO-IMMITTANCE MCAMS2C;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2618 EVOKED POTENTIALS MCAMS2C;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2619 ENG MCAMS2C;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2620 OTHER SITE OF LESION TESTS MCAMS2C;20 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2621 CENTRAL AUDITORY TESTS MCAMS2C;21 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2622 AURAL REHAB TESTS MCAMS2C;22 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2623 DIAGNOSTIC REPORT MCAMS2C;23 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2624 TREATMENT PLANNING-AUDIOLOGY MCAMS2C;24 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2625 AURAL REHAB MCAMS2C;25 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2626 FAMILY COUNSELING-AUDIOLOGY MCAMS2C;26 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2627 PROGRESS NOTES-AUDIOLOGY MCAMS2C;27 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2628 OTHER CONTACTS-AUDIOLOGY MCAMS2C;28 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2629 PROSTHETICS EVALUATION-AUD. MCAMS2C;29 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2630 ROUNDS-AUDIOLOGY MCAMS2C;30 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2631 EQUIP. MAINT. CALIBRATION-AUD. MCAMS2C;31 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2632 HEARING CONSERVATION MCAMS2C;32 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2633 STUDENT TRAINING-AUDIOLOGY MCAMS2C;33 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2634 ON STATION TRAVEL-AUDIOLOGY MCAMS2C;34 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2635 OFF STATION TRAVEL-AUDIOLOGY MCAMS2C;35 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2636 CONSULTS-SPEECH PATHOLOGY MCAMS2C;36 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2637 PATIENTS WAITING FOR THERAPY MCAMS2C;37 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2638 CASE HISTORIES-SPEECH PATH. MCAMS2C;38 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2639 SCREENING-SPEECH PATHOLOGY MCAMS2C;39 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2640 COMP. LANG. COG EVALUATIONS MCAMS2C;40 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2641 SPEC. LIMITED LANG. COG EVAL. MCAMS2C;41 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2642 ORAL MOTOR STRUCTURAL EVAL. MCAMS2C;42 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2643 VOICE RESONANCE ARTIC. EVAL. MCAMS2C;43 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2644 FLUENCY EVALUATIONS MCAMS2C;44 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2645 DYSPHAGIA EVALUATIONS MCAMS2C;45 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2646 DIAGNOSTIC REPORTS MCAMS2C;46 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2647 TREATMENT PLANNING-SP. PATH. MCAMS2C;47 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2648 THERAPY SESSION PLANNING MCAMS2C;48 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2649 TREATMENT-SPEECH PATHOLOGY MCAMS2C;49 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2650 FAMILY COUNSELING-SPEECH PATH. MCAMS2C;50 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2651 PROGRESS NOTES-SPEECH PATH. MCAMS2C;51 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2652 OTHER CONTACTS-SPEECH PATH. MCAMS2C;52 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2653 PROSTHETICS EVAL.-SPEECH PATH. MCAMS2C;53 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2654 ROUNDS-SPEECH PATHOLOGY MCAMS2C;54 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2655 EQUIP. MAIN. CAL.-SPEECH MCAMS2C;55 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2656 STUDENT TRAINING-SPEECH PATH. MCAMS2C;56 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2657 ON STATION TRAVEL-SPEECH PATH. MCAMS2C;57 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2658 OFF STATION TRAVEL-SPEECH PATH MCAMS2C;58 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2659 ADMINISTRATIVE HOURS MCAMS2C;59 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2660 MEETINGS MCAMS2D;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2661 CONTINUING EDUCATION RECEIVED MCAMS2D;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2662 OTHER TRAINING RECEIVED MCAMS2D;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2663 TRAINING GIVEN MCAMS2D;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2664 SERVICE STATUS MCAMS2D;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
2665 RESEARCH HOURS MCAMS2D;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2666 SECRETERIAL/CLER. HRS. MCAMS2D;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2701 TOTAL CATHERIZATIONS MCAMS2E;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
2702 EVENTUALLY HAD CARDIAC SURGERY MCAMS2E;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2703 LEFT HEART PROCEDURES MCAMS2E;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2704 RIGHT HEART PROCEDURES MCAMS2E;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2705 TEMPORARY PACEMAKERS MCAMS2E;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2706 PERMANENT PACEMAKERS MCAMS2E;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2707 ANGIOPLASTY MCAMS2E;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2708 STREPTOKINASE MCAMS2E;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2709 DIGITAL CONTRAST MCAMS2E;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2710 ELECTROPHYSIOLOGY MCAMS2E;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2711 RESEARCH USE OF CCL MCAMS2E;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2712 USE OTHER THAN CARDIOLOGY MCAMS2E;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2713 USE BY OTHER FEDERAL AGENCIES MCAMS2E;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2714 USE BY PRIVATE SECTOR MCAMS2E;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2715 MYOCARDIAL INFARCTION MCAMS2E;15 NUMBER

  • COMPLICATIONS WITHIN 24 HOURS:  MYOCARDIAL INFARCTION
  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2716 STROKE MCAMS2E;16 NUMBER

  • COMPLICATIONS WITHIN 24 HOURS:  STROKE
  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2717 PERFORATION MCAMS2E;17 NUMBER

  • COMPLICATIONS WITHIN 24 HOURS:  PERFORATION
  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2718 PERIPHERAL VASCULAR MCAMS2E;18 NUMBER

  • COMPLICATIONS WITHIN 24 HOURS:  PERIPHERAL VASCULAR
  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2719 OTHER MAJOR COMPLICATIONS MCAMS2E;19 NUMBER

  • COMPLICATIONS WITHIN 24 HOURS:  OTHER MAJOR
  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2720 DEATHS (CARDIAC CATH) MCAMS2E;20 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2801 S/C PATIENTS ON HOME OXYGEN MCAMS2F;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2802 S/C PATIENTS DROPPED MCAMS2F;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2803 S/C PATIENTS STARTED MCAMS2F;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2804 N/S/C PATIENTS ON HOME OXYGEN MCAMS2F;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2805 N/S/C PATIENTS DROPPED MCAMS2F;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2806 N/S/C NEW PATIENTS STARTED MCAMS2F;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2807 PATIENTS ON COMPRESSED GAS MCAMS2F;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2808 PATIENTS ON LIQUID OXYGEN MCAMS2F;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2809 PATIENTS ON RENTED CONCEN. MCAMS2F;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2810 PATIENTS ON OWNED CONCEN. MCAMS2F;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2811 OXY. DEPENDENT VENTILATOR PAT. MCAMS2F;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
2812 QUARTERLY COST-COMPRESSED GAS MCAMS2F;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
2813 QUARTERLY COSTS-LIQUID OXYGEN MCAMS2F;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
2814 QUARTERLY COSTS-RENTED CONCEN. MCAMS2F;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
2815 QUAT. COSTS-VA OWNED CONCEN. MCAMS2F;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
2816 QUARTERLY COSTS-VENTILATORS MCAMS2F;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
2998 MC SEGMENT MODIFIER MCAMS2Z;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(GECSOT),Y="" S Y=" "
  • LAST EDITED:  MAY 18, 1990
  • HELP-PROMPT:  Answer must be 1 character in length.
2999 J41-43 ZEROES MCAMS2Z;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<12)!'(X?12"0") X
  • LAST EDITED:  OCT 22, 1990
  • HELP-PROMPT:  Answer must be 12 characters in length.
3000 TOTAL ANESTHETICS ADMINISTERED SRAMS3;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S($L(Y)=5:Y,$L(Y)=4:"0"_Y,$L(Y)=3:"00"_Y,$L(Y)=2:"000"_Y,$L(Y)=1:"0000"_Y,1:"00000")
  • LAST EDITED:  SEP 17, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
3001 TOTAL INHALATION (02) SRAMS3;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:"0"_Y,$L(Y)=2:"00"_Y,$L(Y)=1:"000"_Y,1:"0000")
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3002 TOTAL INTRAVENOUS (03) SRAMS3;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:"0"_Y,$L(Y)=2:"00"_Y,$L(Y)=1:"000"_Y,1:"0000")
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3003 TOTAL INFILTRATION (04) SRAMS3;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:"0"_Y,$L(Y)=2:"00"_Y,$L(Y)=1:"000"_Y,1:"0000")
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3004 TOTAL FIELD BLOCK (05) SRAMS3;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:"0"_Y,$L(Y)=2:"00"_Y,$L(Y)=1:"000"_Y,1:"0000")
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3005 TOTAL NERVE BLOCK (06) SRAMS3;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:"0"_Y,$L(Y)=2:"00"_Y,$L(Y)=1:"000"_Y,1:"0000")
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3006 TOTAL SPINAL OR EPIDURAL (07) SRAMS3;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:"0"_Y,$L(Y)=2:"00"_Y,$L(Y)=1:"000"_Y,1:"0000")
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3007 TOTAL TOPICAL (08) SRAMS3;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:"0"_Y,$L(Y)=2:"00"_Y,$L(Y)=1:"000"_Y,1:"0000")
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3008 TOTAL RECTAL (09) SRAMS3;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:"0"_Y,$L(Y)=2:"00"_Y,$L(Y)=1:"000"_Y,1:"0000")
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3009 TOTAL OTHER (10) SRAMS3;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:"0"_Y,$L(Y)=2:"00"_Y,$L(Y)=1:"000"_Y,1:"0000")
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3010 SURG, ANES, TOTAL SRAMS3;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:"0"_Y,$L(Y)=2:"00"_Y,$L(Y)=1:"000"_Y,1:"0000")
  • LAST EDITED:  OCT 10, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3011 SURG, ANES, # DEATHS SRAMS3;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:"0"_Y,1:"00")
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3012 SURG, NURSE, TOTAL SRAMS3;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:"0"_Y,$L(Y)=2:"00"_Y,$L(Y)=1:"000"_Y,1:"0000")
  • LAST EDITED:  MAY 17, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3013 SURG, NURSE, DEATHS SRAMS3;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:"0"_Y,1:"00")
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3014 SURG, OTHER, TOTAL SRAMS3;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:"0"_Y,$L(Y)=2:"00"_Y,$L(Y)=1:"000"_Y,1:"0000")
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3015 SURG, OTHER, DEATHS SRAMS3;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:"0"_Y,1:"00")
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3016 DIAG, ANES, TOTAL SRAMS3;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:"0"_Y,$L(Y)=2:"00"_Y,$L(Y)=1:"000"_Y,1:"0000")
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3017 DIAG, ANES, DEATHS SRAMS3;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:"0"_Y,1:"00")
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3018 DIAG, NURSE, TOTAL SRAMS3;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:"0"_Y,$L(Y)=2:"00"_Y,$L(Y)=1:"000"_Y,1:"0000")
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3019 DIAG, NURSE, DEATHS SRAMS3;20 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:"0"_Y,1:"00")
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3020 DIAG, OTHER, TOTAL SRAMS3;21 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:"0"_Y,$L(Y)=2:"00"_Y,$L(Y)=1:"000"_Y,1:"0000")
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3021 DIAG, OTHER, DEATHS SRAMS3;22 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:"0"_Y,1:"00")
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3022 TOTAL NUMBER OF DEATHS (23) SRAMS3;23 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S($L(Y)=3:Y,$L(Y)=2:"0"_Y,$L(Y)=1:"00"_Y,1:"000")
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
3023 DEATHS, INHALATION SRAMS3;24 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:"0"_Y,1:"00")
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3024 DEATHS, IVS SRAMS3;25 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:"0"_Y,1:"00")
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3025 DEATHS, INFILTRATION SRAMS3;26 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:"0"_Y,1:"00")
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3026 DEATHS, FIELD SRAMS3;27 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:"0"_Y,1:"00")
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3027 DEATHS, NERVE SRAMS3;28 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:"0"_Y,1:"00")
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3028 DEATHS, SPINAL SRAMS3;29 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:"0"_Y,1:"00")
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3029 DEATHS, TOPICAL SRAMS3;30 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:"0"_Y,1:"00")
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3030 DEATHS, RECTAL SRAMS3;31 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:"0"_Y,1:"00")
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3031 DEATHS, OTHER SRAMS3;32 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:"0"_Y,1:"00")
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3032 ANES CAUSE DEATH, DEFINITE SRAMS3;33 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:"0"_Y,1:"00")
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3033 ANES CAUSE DEATH, MAYBE SRAMS3;34 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:"0"_Y,1:"00")
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3034 ANES CAUSE DEATH, NO WAY JOSE SRAMS3;35 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S($L(Y)=3:Y,$L(Y)=2:"0"_Y,$L(Y)=1:"00"_Y,1:"000")
  • LAST EDITED:  MAY 24, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
3100 UNIT DOSES ADMIN 01 PSGAMS3;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000000",$L(Y)+1,8)_Y
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
3101 AVG COST PER DOSE 02 PSGAMS3;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  MAY 24, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
3102 WARD STOCK 03 PSGAMS3;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 11, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
3103 AUTO REPLENISHMENT 04 PSGAMS3;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 11, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
3104 AVG COST PER DOSE 05 PSGAMS3;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 11, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
3105 WARD STOCK 06 PSGAMS3;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 11, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
3106 AUTO REPLENISHMENT 07 PSGAMS3;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 11, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
3107 AVG COST PER UNIT 08 PSGAMS3;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 11, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3108 TOTAL NUMBER 09 PSGAMS3;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 11, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
3109 AVERAGE COST 10 PSGAMS3;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 11, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3110 ADMIXTURES 11 PSGAMS3;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 11, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
3111 AVG UNIT COST 12 PSGAMS3;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 11, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3112 PIGGY BACKS 13 PSGAMS3;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 11, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
3113 AVG UNIT COST 14 PSGAMS3;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 11, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3114 HYPERAL FLUIDS 15 PSGAMS3;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 11, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
3115 AVG UNIT COST 16 PSGAMS3;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 11, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3116 FLUIDS AND ADMIN SETS 17 PSGAMS3;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 11, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
3117 AVG UNIT COST 18 PSGAMS3;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 11, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3118 CONTROLLED SUBS ORDERS 19 PSGAMS3;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 11, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3119 AVG UNIT COST 20 PSGAMS3;20 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  AUG 18, 1994
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3120 REGULAR 21 PSGAMS3;21 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 11, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
3121 OVERTIME 22 PSGAMS3;22 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 11, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
3122 REGULAR 23 PSGAMS3;23 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 11, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
3123 OVERTIME 24 PSGAMS3;24 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 11, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
3201 OUTPT SERVICE CONNECTED 001 PSAMS3A;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
3202 A&A HOUSEBOUND 002 PSAMS3A;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
3203 ALL OTHER 003 PSAMS3A;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
3204 METHADONE 004 PSAMS3A;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
3205 MEDICATION REQUESTS 005 PSAMS3A;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
3206 FEE BASIS 006 PSAMS3A;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
3207 STAFF 007 PSAMS3A;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
3208 NEW 008 PSAMS3A;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
3209 REFILL 009 PSAMS3A;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
3210 WINDOW 010 PSAMS3A;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
3211 MAILOUT 011 PSAMS3A;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
3212 AVG RX INGREDIENT COST 012 PSAMS3A;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3213 REGULAR 013 PSAMS3A;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
3214 OVERTIME 014 PSAMS3A;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
3215 REGULAR 015 PSAMS3A;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
3216 OVERTIME 016 PSAMS3A;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
3217 TOTAL # OF RXs 017 PSAMS3A;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
3218 TOTAL COST OF RXs 018 PSAMS3A;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
3219 MEDICATION 019 PSAMS3A;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999999, 0 Decimal Digits
3220 MEDICAL SUPPLIES 020 PSAMS3A;20 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
3221 OTHER SUPPLIES 021 PSAMS3A;21 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
3222 BLOOD FRACT & REL PDCTS 022 PSAMS3A;22 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
3223 RESIDENTS & INTERNS 023 PSAMS3A;23 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
3224 OTHER EDUCATIONAL 024 PSAMS3A;24 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
3225 VOL SERVICE 025 PSAMS3A;25 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
3226 OTH PTNT ORIENT ACT 026 PSAMS3A;26 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
3227 INV PROTOCOLS 027 PSAMS3A;27 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
3228 INVESTIG DRUG RXs 028 PSAMS3A;28 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
3500 LESS THAN 25 (001) SOWKAM257;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3501 25-34 (002) SOWKAM257;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3502 35-44 (003) SOWKAM257;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3503 45-55 (004) SOWKAM257;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  SEP 17, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3504 56-64 (005) SOWKAM257;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3505 65-74 (006) SOWKAM257;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3506 75-84 (007) SOWKAM257;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3507 85 & UP (008) SOWKAM257;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3508 TO INDIVIDUAL LIVING (009) SOWKAM257;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3509 TO HOSPITAL (010) SOWKAM257;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3510 OTHER INSTITUTION CARE (011) SOWKAM257;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3511 DEATH (012) SOWKAM257;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3512 LESS THAN 1 YR. (013) SOWKAM257;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 25, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3513 1-2 (014) SOWKAM257;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 25, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3514 3-5 YRS (015) SOWKAM257;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 25, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3515 OVER 5 YRS. (016) SOWKAM257;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  FEB 01, 1991
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3516 LESS THAN 25 (017) SOWKAM257;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  MAR 06, 1991
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3517 25-34 (018) SOWKAM257;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3518 35-44 (019) SOWKAM257;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3519 45-54 (020) SOWKAM257;20 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3520 55-64 (021) SOWKAM257;21 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3521 65-74 (022) SOWKAM257;22 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3522 75-84 (023) SOWKAM257;23 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3523 85 & UP (024) SOWKAM257;24 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3524 TO INDIVIDUAL LIVING (025) SOWKAM257;25 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3525 TO HOSPITAL (026) SOWKAM257;26 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3526 OTHER INSTITUTION CARE (027) SOWKAM257;27 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3527 DEATH (028) SOWKAM257;28 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3528 LESS THAN 1 YR. (029) SOWKAM257A;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3529 1-2 YRS. (030) SOWKAM257A;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3530 3-5 YRS. (031) SOWKAM257A;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3531 OVER 5 YRS. (032) SOWKAM257A;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3532 LESS THAN 25 (033) SOWKAM257A;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3533 25-34 (034) SOWKAM257A;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3534 35-44 (035) SOWKAM257A;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3535 45-54 (036) SOWKAM257A;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3536 55-64 (037) SOWKAM257A;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3537 65-74 (038) SOWKAM257A;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3538 75-84 (039) SOWKAM257A;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3539 85 & OVER (040) SOWKAM257A;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3540 TO INDIVIDUAL LIVING (041) SOWKAM257A;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3541 TO HOSPITAL (042) SOWKAM257A;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3542 OTHER INSTITUTION CARE (043) SOWKAM257A;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3543 DEATH (044) SOWKAM257A;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3544 LESS THAN 1 YR. (045) SOWKAM257A;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3545 1-2 YRS. (046) SOWKAM257A;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3546 3-5 YRS. (047) SOWKAM257A;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3547 OVER 5 YRS. (048) SOWKAM257A;20 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3548 LESS THAN 25 (049) SOWKAM257A;21 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3549 25-34 (050) SOWKAM257A;22 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3550 35-44 (051) SOWKAM257A;23 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3551 45-54 (052) SOWKAM257A;24 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3552 55-64 (053) SOWKAM257A;25 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3553 65-74 (054) SOWKAM257B;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3554 75-84 (055) SOWKAM257B;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3555 85 & UP (056) SOWKAM257B;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3556 TO INDIVIDUAL LIVING (057) SOWKAM257B;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3557 TO HOSPITAL (058) SOWKAM257B;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3558 OTHER INSTITUTION CARE (059) SOWKAM257B;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3559 DEATH (060) SOWKAM257B;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3560 LESS THAN 1 YR. (061) SOWKAM257B;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3561 1-2 YRS (062) SOWKAM257B;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3562 3-5 YRS (063) SOWKAM257B;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3563 OVER 5 YRS. (064) SOWKAM257B;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3564 LESS THAN 25 (065) SOWKAM257B;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3565 25-34 (066) SOWKAM257B;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3566 35-44 (067) SOWKAM257B;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3567 45-54 (068) SOWKAM257B;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3568 55-64 (069) SOWKAM257B;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3569 65-74 (070) SOWKAM257B;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3570 75-84 (071) SOWKAM257B;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3571 85 & UP (072) SOWKAM257B;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3572 TO INDIVIDUAL LIVING (073) SOWKAM257B;20 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3573 TO HOSPITAL (074) SOWKAM257B;21 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3574 OTHER INSTITUTION CARE (075) SOWKAM257B;22 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3575 DEATH (076) SOWKAM257B;23 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
3576 LESS THAN 1 YR. (077) SOWKAM257B;24 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 14, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3577 1-2 YRS. (078) SOWKAM257B;25 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3578 3-5 YRS (079) SOWKAM257B;26 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3579 OVER 5 YRS. (080) SOWKAM257C;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3580 HOSPITAL (081) SOWKAM257C;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3581 NHCU (082) SOWKAM257C;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3582 CNH (083) SOWKAM257C;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3583 VA DOM (084) SOWKAM257C;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3584 COMM. (085) SOWKAM257C;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3585 OTHER (086) SOWKAM257C;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3586 1-3 BEDS (001) SOWKAM257C;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3587 4-6 BEDS (002) SOWKAM257C;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3588 7-15 (003) SOWKAM257C;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3589 16-25 (004) SOWKAM257C;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3590 OVER 25 BEDS (005) SOWKAM257C;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3591 MEDICAL/SURGICAL (006) SOWKAM257C;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3592 PSYCHOSIS/NEUROSIS (007) SOWKAM257C;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3593 ORGANIC & SENILE DISEASE (008) SOWKAM257C;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3594 SUBSTANCE ABUSE (009) SOWKAM257C;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3595 ALL OTHER (010) SOWKAM257C;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3596 NSC (011) SOWKAM257C;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3597 LESS THAN 50% (012) SOWKAM257C;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3598 50% OR MORE SC (013) SOWKAM257C;20 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3599 VETERANS INCOMP. (014) SOWKAM257C;21 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3600 VETERANS COMPETENT (015) SOWKAM257C;22 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3601 GAINS (001) SOWKAM361;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  MAY 21, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3602 TREATMENT GOAL ACHIEVED (002) SOWKAM361;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3603 REHOSPITALIZATION (003) SOWKAM361;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3604 DEATHS IN HOME (004) SOWKAM361;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3605 OTHER LOSSES (005) SOWKAM361;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3606 REMAINING HBHC PATIENTS (006) SOWKAM361;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3607 PATIENT DAYS OF CARE (007) SOWKAM361;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUN 22, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
3608 S.C. (008) SOWKAM361;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3609 N.S.C. (009) SOWKAM361;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3610 # REC. OF A&A BENEFITS (010) SOWKAM361;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3611 S.C. (011) SOWKAM361;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3612 N.S.C. (012) SOWKAM361;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3613 PHYSICIAN (013) SOWKAM361;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3614 RN (014) SOWKAM361;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3615 LPN (015) SOWKAM361;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3616 DIETITIAN (016) SOWKAM361;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3617 SOCIAL WORKER (017) SOWKAM361;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3618 RMS (018) SOWKAM361;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3619 HOME HEALTH AIDE (019) SOWKAM361;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3620 STUDENTS (020) SOWKAM361;20 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3621 OTHERS (021) SOWKAM361;21 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3622 PHYSICIAN (022) SOWKAM361;22 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3623 RN (023) SOWKAM361;23 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3624 LPN (024) SOWKAM361;24 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3625 DIETITIAN (025) SOWKAM361;25 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3626 SOCIAL WORKER (026) SOWKAM361A;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3627 RMS (027) SOWKAM361A;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3628 HOME HEALTH AIDE (028) SOWKAM361A;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3629 STUDENTS (029) SOWKAM361A;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
3630 OTHER (030) SOWKAM361A;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
4000 DATE OF POSITION VACANCY GECOPER4;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X Q:'$D(X) S X=$E(X,4,7)_$E(X,2,3)
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,6)_Y
  • LAST EDITED:  OCT 09, 1990
  • DESCRIPTION:  
    This is the date of the position vacancy in the format of 'mmddyy'.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
4001 SUPERVISORY LEVEL GECOPER4;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X?1AN) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  OCT 09, 1990
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    This is the code for the level of supervision this position provides.
4002 POSITION NUMBER GECOPER4;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.6AN) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y S:Y="000000" Y=" "
  • LAST EDITED:  OCT 09, 1990
  • HELP-PROMPT:  Answer must be 1-6 characters in length.
  • DESCRIPTION:  
    This is the station defined position number.
4003 FLSA GECOPER4;4 SET
  • 'E' FOR EXEMPT;
  • 'N' FOR NON-EXEMPT;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  OCT 09, 1990
  • DESCRIPTION:  
    This is the code which indicates if the position is exempt from the Fair Labor Standards Act.
4004 FUNCTIONAL CODE GECOPER4;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X?1AN) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  OCT 09, 1990
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    This field indicates the primary functions of scientific (including Title 38) and engineering positions.
4005 PAY PLAN GECOPER4;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X?1AN) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  OCT 09, 1990
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    This is the one character code which identifies the pay category (e.g. 'A').
4006 OCCUPATIONAL SERIES & TITLE GECOPER4;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<6)!'(X?5N1AN) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,6)_Y
  • LAST EDITED:  JAN 28, 1991
  • HELP-PROMPT:  Answer must be 5 digits and 1 alpha OR 6 digits in length.
  • DESCRIPTION:  
    The first four digits represent the occupational series. The fifth and sixth digits identify the position title.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
4007 GRADE GECOPER4;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y S:Y="00" Y=" "
  • LAST EDITED:  OCT 09, 1990
  • HELP-PROMPT:  Answer must be 1-2 digits in length.
  • DESCRIPTION:  
    This field indicates the grade level.
4008 ORGANIZATION & COST CENTER GECOPER4;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<8)!'(X?8N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,8)_Y
  • LAST EDITED:  OCT 09, 1990
  • HELP-PROMPT:  Answer must be 8 digits in length.
  • DESCRIPTION:  
    The first 4 digits represent the COST CENTER and the last 4 digits represent the ORGANIZATION.
4009 DUTY BASIS GECOPER4;10 SET
  • '1' FOR FULL-TIME;
  • '2' FOR PART-TIME;
  • '3' FOR INTERMITTENT;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  OCT 09, 1990
  • DESCRIPTION:  
    This field contains the code which identifies the position as full/part- time or intermittent.
4010 DUTY STATION GECOPER4;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X?1AN) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  OCT 09, 1990
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    This field contains the code for the duty station.
4011 NUMBER OF VACANCIES GECOPER4;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  OCT 09, 1990
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    This is the number of vacancies for this position.
4012 GRADE OF POSITION-2 GECOPER4;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y S:Y="00" Y=" "
  • LAST EDITED:  OCT 09, 1990
  • HELP-PROMPT:  Answer must be 1-2 digits in length.
  • DESCRIPTION:  
    This is a target grade for this position.
4013 GRADE OF POSITION-3 GECOPER4;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y S:Y="00" Y=" "
  • LAST EDITED:  OCT 09, 1990
  • HELP-PROMPT:  Answer must be 1-2 digits in length.
  • DESCRIPTION:  
    This is a target grade for this position.
4014 GRADE OF POSITION-4 GECOPER4;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y S:Y="00" Y=" "
  • LAST EDITED:  OCT 09, 1990
  • HELP-PROMPT:  Answer must be 1-2 digits in length.
  • DESCRIPTION:  
    This is a target grade for this position.
4015 ASSIGNMENT CODE GECOPER4;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2AN) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,2)_Y
  • LAST EDITED:  OCT 09, 1990
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    This is the code for the specialty area of the position.
4016 PAY PLAN GECOPER4;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2A) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,2)_Y
  • LAST EDITED:  OCT 09, 1990
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    This is the two letter code which identifies the pay category (e.g. 'GS').
4017 HOURLY RATE GECOPER4;18 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99.99)!(X<3.8) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E("00",$L($P(Y,".",1))+1,2)_$P(Y,".",1),$P(Y,".",2)=$P(Y,".",2)_$E("00",$L($P(Y,".",2))+1,2),Y=$P(Y,".",1)_$P(Y,".",2) S:Y="0000" Y=" "
  • LAST EDITED:  OCT 09, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 3.8 and 99.99, 2 Decimal Digits
  • DESCRIPTION:  
    This field indicates the hourly rate for wage vacancies.
4018 VA ONLY GECOPER4;19 SET
  • '1' FOR CURRENT VA EMPLOYEES ONLY;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  OCT 09, 1990
  • DESCRIPTION:  
    This field indicates if applications are invited from current VA employees only.
4019 CHIEF OR ASST CHIEF GECOPER4;20 SET
  • 'C' FOR CHIEF OF SERVICE POSITION;
  • 'A' FOR ASSISTANT CHIEF OF SERVICE POSITION;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  OCT 09, 1990
  • DESCRIPTION:  
    This field indicates if a physician or dentist assignment is for a service or assistant service chief.
4020 PART-TIME POSITION GECOPER4;21 SET
  • '1' FOR PART-TIME;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  OCT 09, 1990
  • DESCRIPTION:  
    This field indicates if the position is part-time.
4021 RESERVED-1 GECOPER4;22 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  OCT 10, 1990
  • HELP-PROMPT:  Answer must be 1 character in length.
4141.001 PROTESTANT CENSUS A4CGAMS4A;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The Protestant census as of the last day of the report period.
4141.002 CATHOLIC CENSUS A4CGAMS4A;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The Catholic census as of the last day of the report period.
4141.003 JEWISH CENSUS A4CGAMS4A;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    The Jewish census as of the last day of the report period.
4141.004 EASTERN ORTHODOX CENSUS A4CGAMS4A;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    The Eastern Orthodox census as of the last day of the report period.
4141.005 CENSUS (OTHER) A4CGAMS4A;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    The census of all other religious denominations as of the last day of the report period.
4141.006 CENSUS (NO PREFERENCE) A4CGAMS4A;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    The census of all patients and persons as of the last day of the report period who have no religious preference.
4141.007 PROTESTANT CONTRACT CHAPLAINS A4CGAMS4A;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Protestant contract chaplains who provided services during the period.
4141.008 CATHOLIC CONTRACT CHAPLAINS A4CGAMS4A;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Catholic contract chaplains who provided services during the period.
4141.009 JEWISH CONTRACT CHAPLAINS A4CGAMS4A;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Jewish contract chaplains who provided services during the period.
4141.01 E ORTHODOX CONTRACT CHAPLAINS A4CGAMS4A;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Eastern Orthodox contract chaplains who provided services during the period.
4141.011 PROTESTANT CONTRACT $'S A4CGAMS4A;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total dollars paid out to contract chaplains during the period for Protestant services.
4141.012 CATHOLIC CONTRACT $'S A4CGAMS4A;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total dollars paid out to contract chaplains during the period for Catholic services.
4141.013 JEWISH CONTRACT $'S A4CGAMS4A;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total dollars paid out to contract chaplains during the period for Jewish services.
4141.014 E ORTHODOX CONTRACT $'S A4CGAMS4A;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total dollars paid out to contract chaplains during the period for Eastern Orthodox services.
4141.015 PROTESTANT FEE BASIS A4CGAMS4A;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Protestant chaplains who provided services on a fee basis during the period.
4141.016 CATHOLIC FEE BASIS A4CGAMS4A;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Catholic chaplains who provided services on a fee basis during the period.
4141.017 JEWISH FEE BASIS A4CGAMS4A;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Jewish chaplains who provided services on a fee basis during the period.
4141.018 E ORTHODOX FEE BASIS A4CGAMS4A;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Eastern Orthodox chaplains who provided services on a fee basis during the period.
4141.019 PROTESTANT FEE BASIS $'S A4CGAMS4A;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total dollars paid out to fee basis chaplains during the period for Protestant services.
4141.02 CATHOLIC FEE BASIS $'S A4CGAMS4A;20 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total dollars paid out to fee basis chaplains during the period for Catholic services.
4141.021 JEWISH FEE BASIS $'S A4CGAMS4A;21 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total dollars paid out to fee basis chaplains during the period for Jewish services.
4141.022 E ORTHODOX FEE BASIS $'S A4CGAMS4A;22 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total dollars paid out to fee basis chaplains during the period for Eastern Orthodox services.
4141.023 FULL TIME CHAPLAINS A4CGAMS4A;23 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of full-time chaplains during the period who provided services.
4141.024 PART TIME CHAPLAINS A4CGAMS4A;24 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of part-time chaplains during the period who provided services.
4141.025 INTERMITTENT CHAPLAINS A4CGAMS4A;25 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of intermittent chaplains during the period who provided services.
4141.026 PROTESTANT CHAPLAINS A4CGAMS4A;26 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of Protestant chaplains who provided services during the period.
4141.027 CATHOLIC CHAPLAINS A4CGAMS4A;27 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of Catholic chaplains who provided services during the period.
4141.028 JEWISH CHAPLAINS A4CGAMS4A;28 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of Jewish chaplains who provided services during the period.
4141.029 E ORTHODOX CHAPLAINS A4CGAMS4A;29 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of Eastern Orthodox chaplains who provided services during the period.
4141.03 RELIGIOUS SERVICES (TIMES) A4CGAMS4A;30 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of times regularly established worship services and masses were held in the chapel, chapel room, ward, or day room. Jewish chaplains will include yahrseit minyon.
4141.031 RELIGIOUS SERVICES (PERSONS) A4CGAMS4A;31 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of persons attending regularly established worship services and masses in the chapel, chapel room, ward, or day room. Jewish chaplains will include yahrseit minyon.
4141.032 GROUP MEETINGS (TIMES) A4CGAMS4A;32 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of group meetings devoted to religious education, Bible class, and religious instructions and discussions.
4141.033 GROUP MEETINGS (PERSONS) A4CGAMS4A;33 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of persons attending group meetings devoted to religious education, Bible class, and religious instructions and discussions.
4141.034 HOLY COMMUNION (CHAPEL) A4CGAMS4A;34 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of communions distributed in the chapel.
4141.035 HOLY COMMUNION (BEDSIDE) A4CGAMS4A;35 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of communions distributed at bedside.
4141.036 CONFESSIONS A4CGAMS4A;36 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of confessions heard.
4141.037 MINISTRY TO DYING A4CGAMS4A;37 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    All ministry to the dying or Sacraments of the sick. Jewish chaplains will report Vidui (confession) prayers in this field.
4141.038 EMERGENCY CALLS A4CGAMS4A;38 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of emergency calls of all types conducted outside of duty hours.
4141.039 VISITS TO SERIOUSLY ILL A4CGAMS4A;39 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of visits made to seriously ill patients.
4141.04 VISITS TO NEWLY ADMITTED A4CGAMS4A;40 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of initial visits to newly admitted patients.
4141.041 PRE & POST SURGERY VISITS A4CGAMS4A;41 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of visits made to pre- and post-surgery patients.
4141.042 PATIENT/RELATIVE CONSULTATIONS A4CGAMS4A;42 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of consultations of all types with patients and relatives of patients.
4141.043 CONSULTATIONS W/STAFF A4CGAMS4A;43 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of times staff members were consulted about patients.
4141.044 FUNERALS (SERVICES) A4CGAMS4A;44 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Funeral Services which were a part of official duty.
4141.045 FUNERALS (ATTENDANCE) A4CGAMS4A;45 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of people in attendance.
4141.046 AMBULATORY CARE (PERSONS) A4CGAMS4A;46 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of non-hospitalized, ambulatory care patients who were visited by the chaplain.
4141.047 RADIO & TV (TIMES) A4CGAMS4A;47 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of times religious radio and TV programs were given.
4141.048 USE OF VISUAL AIDS (TIMES) A4CGAMS4A;48 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of times religious audio and visual aids (other than radio and TV) were used. These include cassettes, records, etc.
4141.049 ORIENTATION LECTURES A4CGAMS4A;49 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of orientation lectures to interns, residents, nurses and allother staff disciplines.
4141.05 STAFF MEETINGS A4CGAMS4A;50 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of administrative and multi-disciplinary staff meetings attended.
4141.051 MENTAL HEALTH CARE MEETINGS A4CGAMS4A;51 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of group meetings of all types with mental health care patients which were attended by a chaplain (e.g., group therapy, orientation lectures, patient government).
4141.052 SERVICES BY VISITING CLERGY A4CGAMS4B;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of services of all types provided by visiting clergy.
4141.053 VOLUNTEERS (PERSONS) A4CGAMS4B;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of different volunteers who worked on activities for Chaplain Service.
4141.054 VOLUNTEER (HOURS) A4CGAMS4B;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of hours worked by volunteers.
4141.055 REGULAR VISITATIONS A4CGAMS4B;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of regular pastoral visits to patients.
4141.056 OUTPATIENTS SEEN (TIMES) A4CGAMS4B;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of times outpatients were seen by a chaplain on a one-to- one basis.
4141.057 MENTAL HEALTH SETTING A4CGAMS4V;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    Pastoral counseling conducted in or with a mental health setting.
4141.058 POST TRAUMATIC STRESS A4CGAMS4V;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of patients with Post Traumatic Stress Disorders seen.
4141.059 AIDS/HIV A4CGAMS4V;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of patients counseled.
4141.06 SUBSTANCE ABUSE A4CGAMS4V;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of patients counseled.
4141.061 HOMELESS A4CGAMS4V;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of homeless seen, counseled or helped by chaplains.
4141.062 BEREAVEMENT A4CGAMS4V;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of persons counseled either one-on-one or in a group.
4141.063 ONCOLOGY A4CGAMS4V;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of patients counseled in this field.
4141.064 PERSON ABUSE A4CGAMS4V;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of persons counseled.
4141.065 GERIATRIC A4CGAMS4V;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    All patients seen in extended care, adult day care, nursing home care, GRECC and other aging Veteran activities.
4141.066 COLLATERAL VISITS A4CGAMS4V;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of visits that qualify under the definition of a collateral visit.
4141.067 VETS CENTER A4CGAMS4V;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of veterans and staff seen while visiting local veterans centers.
4141.068 MGMT COMMITTEE (HRS TRAIN) A4CGAMS4V;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of hours spent in class or on-the-job training.
4141.069 MGMT COMMITTEE (HRS SPENT) A4CGAMS4V;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of hours spent serving on management committees. Include both clinical and administrative management.
4141.07 MULTI-DISCIPLINARY A4CGAMS4V;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  JUL 30, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of team meetings the chaplains attended during the reporting period.
4141.071 ETHIC COMMITTEE CHAIRMAN A4CGAMS4V;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>1)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  JUL 27, 1990
  • HELP-PROMPT:  Type a Number between 1 and 1, 0 Decimal Digits
  • DESCRIPTION:  
    Enter '1' if you served as a chairman on an ethic committee.
4141.072 ETHIC COMMITTEE MEMBER A4CGAMS4V;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>1)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  JUL 27, 1990
  • HELP-PROMPT:  Type a Number between 1 and 1, 0 Decimal Digits
  • DESCRIPTION:  
    Enter '1' if you served as a member of an ethic committee.
4142.01 CHAPEL OFFERINGS (PROTESTANT) A4CGAMS4C;1 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,".",1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    All receipts from chapel offerings to the Protestant Chaplain's Fund.
4142.02 OTHER DONATIONS (PROTESTANT) A4CGAMS4C;2 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,".",1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    All receipts from other donations (non-chapel offerings) to the Protestant Chaplain's Fund.
4142.03 SUPPLIES/EQUIP (PROTESTANT) A4CGAMS4C;3 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,".",1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    All monies spent on supplies, equipment, etc, from the Protestant Chaplain's Fund.
4142.04 CONTRIBUTIONS (PROTESTANT) A4CGAMS4C;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,".",1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    All monies contributed to institutions, organizations, etc, from the Protestant Chaplain's Fund.
4142.05 HONORARIA (PROTESTANT) A4CGAMS4C;5 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,".",1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    All monies used as honoraria from the Protestant Chaplain's Fund.
4142.06 BALANCE EOP (PROTESTANT) A4CGAMS4C;6 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,".",1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    The amount remaining in the Protestant Chaplain Fund at the end of the period.
4142.07 AUDIT (PROTESTANT) A4CGAMS4C;7 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>2)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 11, 1990
  • HELP-PROMPT:  Enter 1 for YES or 2 for NO.
  • DESCRIPTION:  
    Whether or not the Protestant Chaplain's Fund was audited during the period.
4142.08 CHAPEL OFFERINGS (CATHOLIC) A4CGAMS4C;8 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,".",1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    All receipts from chapel offerings to the Catholic Chaplain's Fund.
4142.09 OTHER DONATIONS (CATHOLIC) A4CGAMS4C;9 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,".",1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    All receipts from other donations (non-chapel offerings) to the Catholic Chaplain's Fund.
4142.1 SUPPLIES/EQUIP (CATHOLIC) A4CGAMS4C;10 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,".",1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    All monies spent on supplies, equipment,...etc from the Catholic Chaplain's Fund
4142.11 CONTRIBUTIONS (CATHOLIC) A4CGAMS4C;11 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,".",1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    All monies contributed to institutions, organizations,...etc from the Catholic Chaplain's Fund.
4142.12 HONORARIA (CATHOLIC) A4CGAMS4C;12 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,".",1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    All monies used as honoraria from the Catholic Chaplain's Fund.
4142.13 BALANCE EOP (CATHOLIC) A4CGAMS4C;13 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,".",1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    The end-of-period amount remaining in the Catholic Chaplain's Fund.
4142.14 AUDIT (CATHOLIC) A4CGAMS4C;14 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>2)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 11, 1990
  • HELP-PROMPT:  Enter 1 for YES or 2 for NO.
  • DESCRIPTION:  
    Whether or not the Catholic Chaplain's Fund was audited during the period.
4142.15 CHAPEL OFFERINGS (JEWISH) A4CGAMS4C;15 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,".",1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    All receipts from chapel offerings to the Jewish Chaplain's Fund.
4142.16 OTHER DONATIONS (JEWISH) A4CGAMS4C;16 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,".",1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    All receipts from other donations (non-chapel offerings) to the Jewish Chaplain's Fund.
4142.17 SUPPLIES/EQUIP (JEWISH) A4CGAMS4C;17 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,".",1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    All monies spent on supplies, equipment,...etc from the Jewish Chaplain's Fund.
4142.18 CONTRIBUTIONS (JEWISH) A4CGAMS4C;18 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,".",1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    All monies contributed to institutions, organizations,...etc from the Jewish Chaplain's Fund.
4142.19 HONORARIA (JEWISH) A4CGAMS4C;19 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,".",1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    All monies used as honoraria from the Jewish Chaplain's Fund.
4142.2 BALANCE EOP (JEWISH) A4CGAMS4C;20 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,".",1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    The end-of-period amount remaining in the Jewish Chaplain's Fund.
4142.21 AUDIT (JEWISH) A4CGAMS4C;21 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>2)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 11, 1990
  • HELP-PROMPT:  Enter 1 for YES or 2 for NO.
  • DESCRIPTION:  
    Whether or not the Jewish Chaplain's Fund was audited during the period.
4142.22 CHAPEL OFFERINGS (E ORTHODOX) A4CGAMS4C;22 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,".",1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    All receipts from chapel offerings to the Eastern Orthodox Chaplain's Fund.
4142.23 OTHER DONATIONS (E ORTHODOX) A4CGAMS4C;23 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,".",1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    All receipts from other donations (non-chapel offerings) to the Eastern Orthodox Chaplain's Fund.
4142.24 SUPPLIES/EQUIP (E ORTHODOX) A4CGAMS4C;24 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,".",1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    All monies spent on supplies, equipment,...etc from the Eastern Orthodox Chaplain's Fund.
4142.25 CONTRIBUTIONS (E ORTHODOX) A4CGAMS4C;25 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,".",1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    All monies contributed to institutions, organizations,...etc from the Eastern Orthodox Chaplain's Fund.
4142.26 HONORARIA (E ORTHODOX) A4CGAMS4C;26 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,".",1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    All monies used as honoraria from the Eastern Orthodox Chaplain's Fund.
4142.27 BALANCE EOP (E ORTHODOX) A4CGAMS4C;27 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,".",1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    The end-of-period amount remaining in the Eastern Orthodox Chaplain's Fund.
4142.28 AUDIT (E ORTHODOX) A4CGAMS4C;28 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>2)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 11, 1990
  • HELP-PROMPT:  Enter 1 for YES or 2 for NO.
  • DESCRIPTION:  
    Whether or not the Eastern Orthodox Chaplain's Fund was audited during the period.
4165.01 PHOTO I A4CGAMS4D;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of work units performed for basic photography, black and white or color and copy photography products.
4165.02 PHOTO II A4CGAMS4D;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of work units performed for studio, location or small object photography and photomicrography.
4165.03 PHOTO III A4CGAMS4D;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of work units performed for complex and photomicrography.
4165.04 PHOTO IV A4CGAMS4D;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of work units performed for support activities of all photographic functions.
4165.05 % PERS COST (PHOTO) A4CGAMS4D;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 100, 0 Decimal Digits
  • DESCRIPTION:  
    The percentage of total personnel costs for the photography section.
4165.06 % SUPPLY COST (PHOTO) A4CGAMS4D;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 100, 0 Decimal Digits
  • DESCRIPTION:  
    The percentage of total cost of supplies and services for the photography section.
4165.07 % SPACE COST (PHOTO) A4CGAMS4D;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 100, 0 Decimal Digits
  • DESCRIPTION:  
    The percentage of the total cost of space for the photography section.
4165.08 EQUIPMENT COST (PHOTO) A4CGAMS4D;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total acquisition cost for all photographic equipment.
4165.09 ILL/GRA I A4CGAMS4D;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of work units performed for simple paste-up typesetting, and charts and graphs.
4165.1 ILL/GRA II A4CGAMS4D;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of work units performed for diagrams, simple line drawings, complex charts and graphs, brochures, and displays.
4165.11 ILL/GRA III A4CGAMS4D;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of work units performed for complex illustration and/or graphics, TV art and major cover designs.
4165.12 ILL/GRA IV A4CGAMS4D;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of work units performed for support activities for all illustration and graphic functions.
4165.13 % PERS COST (ILL/GRA) A4CGAMS4D;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 100, 0 Decimal Digits
  • DESCRIPTION:  
    The percentage of total personnel costs for the illustration/graphics section.
4165.14 % SUPPLY COST (ILL/GRA) A4CGAMS4D;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 100, 0 Decimal Digits
  • DESCRIPTION:  
    The percentage of total cost of supplies and services for the illustration/graphics section.
4165.15 % SPACE COST (ILL/GRA) A4CGAMS4D;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 100, 0 Decimal Digits
  • DESCRIPTION:  
    The percentage of total cost of space for the illustration/graphics section.
4165.16 EQUIPMENT COST (ILL/GRA) A4CGAMS4D;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total acquisition cost for all illustration and graphics equipment.
4165.17 CAG I A4CGAMS4D;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of work units performed for all simple slides generated by computer.
4165.18 CAG II A4CGAMS4D;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of work units performed for chart and graph slides and more complex word slides generated by computer.
4165.19 CAG III A4CGAMS4D;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of work units performed for all original illustration slides that require free hand computer digitizing.
4165.2 CAG IV A4CGAMS4D;20 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of work units performed on all support activities for the computer aided graphics section.
4165.21 % PERS COST (CAG) A4CGAMS4D;21 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 100, 0 Decimal Digits
  • DESCRIPTION:  
    The percentage of total personnel costs for the computer aided graphics section.
4165.22 % SUPPLY COST (CAG) A4CGAMS4D;22 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 100, 0 Decimal Digits
  • DESCRIPTION:  
    The percentage of total cost of supplies and services for the computer aided graphics section.
4165.23 % SPACE COST (CAG) A4CGAMS4D;23 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 100, 0 Decimal Digits
  • DESCRIPTION:  
    The percentage of the total cost of space for the computer aided graphics section.
4165.24 EQUIPMENT COST (CAG) A4CGAMS4D;24 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total acquisition cost for all computer aided graphics equipment.
4165.25 A/V I A4CGAMS4D;25 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of minutes spent for motion picture, sound recording, media services activities and level III video notebooking.
4165.26 A/V II A4CGAMS4D;26 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of minutes spent for video production products which will be utilized at the local medical center.
4165.27 A/V III A4CGAMS4D;27 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of minutes spent on those productions which are instructional and/or informational and intended for regional or national distribution.
4165.28 A/V IV A4CGAMS4D;28 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of minutes spent on all support activities for the audiovisual section.
4165.29 % PERS COST (A/V) A4CGAMS4D;29 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 100, 0 Decimal Digits
  • DESCRIPTION:  
    The percentage of total personnel costs for the audiovisual section.
4165.3 % SUPPLY COST (A/V) A4CGAMS4D;30 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 100, 0 Decimal Digits
  • DESCRIPTION:  
    The percentage of total cost of supplies and services for the audiovisual section.
4165.31 % SPACE COST (A/V) A4CGAMS4D;31 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 100, 0 Decimal Digits
  • DESCRIPTION:  
    The percentage of the total cost of space for the audiovisual section.
4165.32 EQUIPMENT COST (A/V) A4CGAMS4D;32 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total acquisition cost for all audiovisual equipment.
4165.33 MISC/ADMIN OPERATIONS A4CGAMS4D;33 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of minutes spent on all management, administration and clerical activities.
4165.34 % PERS COST (MO/A) A4CGAMS4D;34 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 100, 0 Decimal Digits
  • DESCRIPTION:  
    The percentage of total personnel costs for miscellaneous operations and administration.
4165.35 % SUPPLY COST (MO/A) A4CGAMS4D;35 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 100, 0 Decimal Digits
  • DESCRIPTION:  
    The percentage of total cost of supplies and services for miscellaneous operations and administration.
4165.36 % SPACE COST (MO/A) A4CGAMS4D;36 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 100, 0 Decimal Digits
  • DESCRIPTION:  
    The percentage of the total cost of space for miscellaneous operations and administration.
4165.37 EQUIPMENT COST (MO/A) A4CGAMS4D;37 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total acquisition cost for all miscellaneous and administrative equipment.
4165.38 PERSONNEL (TOTAL COST) A4CGAMS4D;38 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total personnel cost for the quarter rounded to the nearest dollar.
4165.39 SUPPLIES/SERVICES (TOTAL COST) A4CGAMS4D;39 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total cost of supplies and services used by all Medical Media Production activities rounded to the nearest dollar.
4165.4 SPACE (TOTAL COST) A4CGAMS4D;40 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total space cost for the quarter rounded to the nearest dollar.
4165.41 MEDICAL REQUESTS A4CGAMS4D;41 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    The percentage of the total number of requests received by Medical Media Production Service for all categories of operations for which the subject of the completed project was medically oriented.
4165.42 NON MEDICAL REQUESTS A4CGAMS4D;42 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    The percentage of the total number of requests received by Medical Media Production Service for which the subject of the completed product was not medically oriented.
4165.43 RESEARCH REQUESTS A4CGAMS4D;43 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    The percentage of the total number of requests received by Medical Media Production Service for which the subject of the completed product was research oriented.
4165.44 HOURS WORKED (CHIEF) A4CGAMS4D;44 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of hours worked by the Office of the Chief, Medical Media Service.
4165.45 HOURS WORKED (CLERICAL) A4CGAMS4D;45 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of clerical hours worked.
4165.46 HOURS WORKED (VOLUNTEER) A4CGAMS4D;46 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of hours worked by volunteers.
4165.47 HOURS WORKED (PRODUCTION) A4CGAMS4D;47 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of hours worked by the production staff.
4165.48 HOURS WORKED (TRAINEES) A4CGAMS4E;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of hours worked by trainees.
4165.49 HOURS WORKED (ALL EMPLOYEES) A4CGAMS4E;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of hours worked by all Medical Media Production Service employees.
4165.5 HOURS PAID (CHIEF) A4CGAMS4E;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of paid hours for the Office of the Chief, Medical Media Service.
4165.51 HOURS PAID (CLERICAL) A4CGAMS4E;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of paid hours for clerical work.
4165.52 HOURS PAID (PRODUCTION) A4CGAMS4E;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of paid hours for production work.
4165.53 HOURS PAID OT (ALL EMPLOYEES) A4CGAMS4E;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of paid overtime hours for all employees.
4165.54 LWOP HOURS A4CGAMS4E;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Leave Without Pay (LWOP) hours used.
4165.55 COP 45-DAY A4CGAMS4E;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of days of Continuation of Pay (COP) used.
4165.56 FTEE PAID A4CGAMS4E;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99.99)!(X<0)!(X?.E1"."3N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("00",$L($P(Y,".",1))+1,2)_$P(Y,".",1)_$P(Y,".",2)_$E("00",$L($P(Y,".",2))+1,2)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99.99, 2 Decimal Digits
  • DESCRIPTION:  
    The paid FTEE ceiling for Medical Media Production Service.
4200.001 PSYCHIATRIC I A4CGAMS4F;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 24, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Intensive Care patients in the psychiatric bed section.
4200.002 PSYCHIATRIC II A4CGAMS4F;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 24, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Acute I Care patients in the psychiatric bed section.
4200.003 PSYCHIATRIC III A4CGAMS4F;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 24, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Acute II Care patients in the psychiatric bed section.
4200.004 PSYCHIATRIC IV A4CGAMS4F;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 24, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Extended Hospice Care patients in the psychiatric bed section.
4200.005 NO. OF PSYCHIATRIC WARDS A4CGAMS4F;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("00",$L($P(Y,".",1))+1,2)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99.9, 1 Decimal Digit
  • DESCRIPTION:  
    The average number of psychiatric wards.
4200.006 ALCOHOL & DRUG DEP TRMT I A4CGAMS4F;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 24, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Intensive Care patients in the alcohol and drug dependence treatment bed section.
4200.007 ALCOHOL & DRUG DEP TRMT II A4CGAMS4F;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 24, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Acute I Care patients in the alcohol and drug dependence treatment bed section.
4200.008 ALCOHOL & DRUG DEP TRMT III A4CGAMS4F;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 24, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Acute II Care patients in the alcohol and drug dependence treatment bed section.
4200.009 ALCOHOL & DRUG DEP TRMT IV A4CGAMS4F;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 24, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Extended Hospice Care patients in the alcohol and drug dependence treatment bed section.
4200.01 NO. OF ALCOHOL/DRUG TRMT WARDS A4CGAMS4F;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("00",$L($P(Y,".",1))+1,2)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99.9, 1 Decimal Digit
  • DESCRIPTION:  
    The average number of alcohol and drug dependence treatment wards.
4200.011 SURGICAL I A4CGAMS4F;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 24, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Intensive Care patients in the surgical bed section.
4200.012 SURGICAL II A4CGAMS4F;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 24, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Acute I Care patients in the surgical bed section.
4200.013 SURGICAL III A4CGAMS4F;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 24, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Acute II Care patients in the surgical bed section.
4200.014 SURGICAL IV A4CGAMS4F;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 24, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Extended Hospice Care patients in the surgical bed section.
4200.015 NO. OF SURGICAL WARDS A4CGAMS4F;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("00",$L($P(Y,".",1))+1,2)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99.9, 1 Decimal Digit
  • DESCRIPTION:  
    The average number of surgical wards.
4200.016 MEDICAL I A4CGAMS4F;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 24, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Intensive Care patients in the medical bed section.
4200.017 MEDICAL II A4CGAMS4F;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 24, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Acute I Care patients in the medical bed section.
4200.018 MEDICAL III A4CGAMS4F;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 24, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Acute II Care patients in the medical bed section.
4200.019 MEDICAL IV A4CGAMS4F;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 24, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Extended Hospice Care patients in the medical bed section.
4200.02 NO. OF MEDICAL WARDS A4CGAMS4F;20 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("00",$L($P(Y,".",1))+1,2)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99.9, 1 Decimal Digit
  • DESCRIPTION:  
    The average number of medical wards.
4200.021 SPINAL CORD INJURY I A4CGAMS4F;21 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 24, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Intensive Care patients in the spinal cord injury bed section.
4200.022 SPINAL CORD INJURY II A4CGAMS4F;22 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 24, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Acute I Care patients in the spinal cord injury bed section.
4200.023 SPINAL CORD INJURY III A4CGAMS4F;23 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 24, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Acute II Care patients in the spinal cord injury bed section.
4200.024 SPINAL CORD INJURY IV A4CGAMS4F;24 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 24, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Extended Hospice Care patients in the spinal cord injury bed section.
4200.025 SPINAL CORD INJURY V A4CGAMS4F;25 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 24, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Minimal Care patients in the spinal cord injury bed section.
4200.026 NO. OF SPINAL CORD INJ WARDS A4CGAMS4F;26 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("00",$L($P(Y,".",1))+1,2)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99.9, 1 Decimal Digit
  • DESCRIPTION:  
    The average number of medical wards for spinal cord injury patients at the SCI Center only.
4200.027 NURSING HOME CARE I A4CGAMS4F;27 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 24, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Intensive Care patients in VA Nursing Home Care Units only.
4200.028 NURSING HOME CARE II A4CGAMS4F;28 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 24, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Acute I Care patients in VA Nursing Home Care Units only.
4200.029 NURSING HOME CARE III A4CGAMS4F;29 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 24, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Acute II Care patients in VA Nursing Home Care Units only.
4200.03 NO. OF NURSING HOME CARE WARDS A4CGAMS4F;30 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("00",$L($P(Y,".",1))+1,2)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99.9, 1 Decimal Digit
  • DESCRIPTION:  
    The average number of wards assigned to VA Nursing Home Care.
4200.031 NO. OF HEMODIALYSIS TREATMENTS A4CGAMS4F;31 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 24, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The cumulative number of hemodialysis treatments during the quarter.
4200.032 NO. OF HEMODIALYSIS UNITS A4CGAMS4F;32 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("00",$L($P(Y,".",1))+1,2)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99.9, 1 Decimal Digit
  • DESCRIPTION:  
    The average number of hemodialysis units.
4200.033 HEMODIALYSIS DAYS OF OPERATION A4CGAMS4F;33 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 24, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of days that hemodialysis units were in operation during the quarter.
4200.034 INTERMEDIATE CARE I A4CGAMS4F;34 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 24, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Intensive Care patients who are in a bed section officially designated as an intermediate bed section.
4200.035 INTERMEDIATE CARE II A4CGAMS4F;35 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 24, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Acute I Care patients who are in a bed section officially designated as an intermediate bed section.
4200.036 INTERMEDIATE CARE III A4CGAMS4F;36 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 24, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Acute II Care patients who are in a bed section officially designated as an intermediate bed section.
4200.037 NO. OF INTERMEDIATE WARDS A4CGAMS4G;26 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("00",$L($P(Y,".",1))+1,2)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99.9, 1 Decimal Digit
  • DESCRIPTION:  
    The average number of intermediate care wards.
4200.038 DOMICILIARY (MEMBERS) A4CGAMS4G;27 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 24, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of members who are in a domiciliary care unit.
4200.039 DOMICILIARY (UNITS) A4CGAMS4G;28 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  APR 24, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    The average number of domiciliary units.
4200.04 CRITICAL CARE I A4CGAMS4G;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 23, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Intensive Care patients in the critical care section.
4200.041 CRITICAL CARE II A4CGAMS4G;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 23, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Acute I Care patients in the critical care section.
4200.042 CRITICAL CARE III A4CGAMS4G;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 23, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Acute II Care patients in the critical care section.
4200.043 NO. OF CRITICAL CARE UNITS A4CGAMS4G;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("00",$L($P(Y,".",1))+1,2)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99.9, 1 Decimal Digit
  • DESCRIPTION:  
    The average number of critical care units.
4200.044 OPERATING ROOM I A4CGAMS4G;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 23, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Intensive Care patients in the operating room section.
4200.045 OPERATING ROOM II A4CGAMS4G;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 23, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Acute I Care patients in the operating room section.
4200.046 OPERATING ROOM III A4CGAMS4G;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 23, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Acute II Care patients in the operating room section.
4200.047 OPERATING ROOM IV A4CGAMS4G;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 23, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Extended Hospice Care patients in the operating room section.
4200.048 NO. OF OPERATING ROOMS A4CGAMS4G;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  APR 23, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    The average number of rooms in the operating room section.
4200.049 RECOVERY ROOM I A4CGAMS4G;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 23, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Acute I Care patients in the recovery room section.
4200.05 RECOVERY ROOM II A4CGAMS4G;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 23, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Acute II Care patients in the recovery room section.
4200.051 RECOVERY ROOM III A4CGAMS4G;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 23, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Acute II Care patients in the recovery room section.
4200.052 NO. OF RECOVERY ROOM BEDS A4CGAMS4G;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  APR 23, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    The average number of beds in the recovery room section.
4200.053 AMBULATORY CARE I A4CGAMS4G;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 23, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Intensive Care patients in the ambulatory care section.
4200.054 AMBULATORY CARE II A4CGAMS4G;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 23, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Acute I Care patients in the ambulatory care section.
4200.055 AMBULATORY CARE III A4CGAMS4G;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 23, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Acute II Care patients in the ambulatory care section.
4200.056 AMBULATORY CARE IV A4CGAMS4G;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 23, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Extended Hospice Care patients in the ambulatory care section.
4200.057 AMBULATORY CARE V A4CGAMS4G;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 23, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Minimal Care patients in the ambulatory care section.
4200.058 AMBULATORY SURGERY I A4CGAMS4G;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 23, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Intensive Care patients in the ambulatory surgery section.
4200.059 AMBULATORY SURGERY II A4CGAMS4G;20 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 23, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Acute I Care patients in the ambulatory surgery section.
4200.06 AMBULATORY SURGERY III A4CGAMS4G;21 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 23, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Acute II Care patients in the ambulatory surgery section.
4200.061 AMBULATORY SURGERY IV A4CGAMS4G;22 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 23, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Extended Hospice Care patients in the ambulatory surgery section.
4200.062 AMBULATORY SURGERY RECOVERY I A4CGAMS4G;23 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 23, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Intensive Care patients in the ambulatory surgery recovery section.
4200.063 AMBULATORY SURGERY RECOVERY II A4CGAMS4G;24 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 23, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Acute I Care patients in the ambulatory surgery recovery section.
4200.064 AMBULATORY SURG RECOVERY III A4CGAMS4G;25 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 23, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of Acute II Care patients in the ambulatory surgery recovery section.
4201.001 PSYCHIATRIC (RN) A4CGAMS4H;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of RN man-hours worked by nursing service personnel in the psychiatric bed sections.
4201.002 PSYCHIATRIC (LPN) A4CGAMS4H;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of LPN man-hours worked by nursing service personnel in the psychiatric bed sections.
4201.003 PSYCHIATRIC (NA) A4CGAMS4H;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of NA man-hours worked by nursing service personnel in the psychiatric bed sections.
4201.004 SURGICAL (RN) A4CGAMS4H;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of RN man-hours worked by nursing service personnel in the surgical bed section.
4201.005 SURGICAL (LPN) A4CGAMS4H;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of LPN man-hours worked by nursing service personnel in the surgical bed section.
4201.006 SURGICAL (NA) A4CGAMS4H;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of NA man-hours worked by nursing service personnel in the surgical bed section.
4201.007 MEDICAL (RN) A4CGAMS4H;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of RN man-hours worked by nursing service personnel in the medical bed section
4201.008 MEDICAL (LPN) A4CGAMS4H;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of LPN man-hours worked by nursing service personnel in the medical bed section.
4201.009 MEDICAL (NA) A4CGAMS4H;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of NA man-hours worked by nursing service personnel in the medical bed section.
4201.01 SPINAL CORD INJURY (RN) A4CGAMS4H;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of RN man-hours worked by nursing service personnel in the spinal cord injury bed section.
4201.011 SPINAL CORD INJURY (LPN) A4CGAMS4H;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of LPN man-hours worked by nursing service personnel in the spinal cord injury bed section.
4201.012 SPINAL CORD INJURY (NA) A4CGAMS4H;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of NA man-hours worked by nursing service personnel in the spinal cord injury bed section.
4201.013 IMMEDIATE CARE (RN) A4CGAMS4H;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of RN man-hours worked by nursing service personnel in the immediate care bed section.
4201.014 IMMEDIATE CARE (LPN) A4CGAMS4H;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of LPN man-hours worked by nursing service personnel in the immediate care bed section.
4201.015 IMMEDIATE CARE (NA) A4CGAMS4H;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of NA man-hours worked by nursing service personnel in the immediate care bed section.
4201.016 NURSING HOME CARE (RN) A4CGAMS4H;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of RN man-hours worked by nursing service personnel in the nursing home care section.
4201.017 NURSING HOME CARE (LPN) A4CGAMS4H;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of LPN man-hours worked by nursing service personnel in the nursing home care section.
4201.018 NURSING HOME CARE (NA) A4CGAMS4H;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of NA man-hours worked by nursing service personnel in the nursing home care section.
4201.019 CRITICAL CARE (RN) A4CGAMS4H;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of RN man-hours worked by nursing service personnel in the critical care section.
4201.02 CRITICAL CARE (LPN) A4CGAMS4H;20 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of LPN man-hours worked by nursing service personnel in the critical care section.
4201.021 CRITICAL CARE (NA) A4CGAMS4H;21 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of NA man-hours worked by nursing service personnel in the critical care section.
4201.022 HEMODIALYSIS (RN) A4CGAMS4H;22 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of RN man-hours worked by nursing service personnel in the hemodialysis care section.
4201.023 HEMODIALYSIS (LPN) A4CGAMS4H;23 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of LPN man-hours worked by nursing service personnel in the hemodialysis care section.
4201.024 HEMODIALYSIS (NA) A4CGAMS4H;24 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of NA man-hours worked by nursing service personnel in the hemodialysis care section.
4201.025 OPERATING ROOM (RN) A4CGAMS4H;25 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of RN man-hours worked by nursing service personnel in the operating room.
4201.026 OPERATING ROOM (LPN) A4CGAMS4H;26 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of LPN man-hours worked by nursing service personnel in the operating room.
4201.027 OPERATING ROOM (NA) A4CGAMS4H;27 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of NA man-hours worked by nursing service personnel in the operating room.
4201.028 ESCORT ACTIVITIES (RN) A4CGAMS4H;28 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of RN man-hours worked by nursing service personnel in escort activities.
4201.029 ESCORT ACTIVITIES (LPN) A4CGAMS4H;29 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of LPN man-hours worked by nursing service personnel in escort activities.
4201.03 ESCORT ACTIVITIES (NA) A4CGAMS4H;30 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of NA man-hours worked by nursing service personnel in escort activities.
4201.031 DOMICILIARY (RN) A4CGAMS4H;31 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of RN man-hours worked by nursing service personnel in the domiciliary.
4201.032 DOMICILIARY (LPN) A4CGAMS4H;32 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of LPN man-hours worked by nursing service personnel in the domiciliary.
4201.033 DOMICILIARY (NA) A4CGAMS4H;33 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of NA man-hours worked by nursing service personnel in the domiciliary.
4201.034 AMBULATORY CARE (RN) A4CGAMS4H;34 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of RN man-hours worked by nursing service personnel in the ambulatory care section.
4201.035 AMBULATORY CARE (LPN) A4CGAMS4H;35 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of LPN man-hours worked by nursing service personnel in the ambulatory care section.
4201.036 AMBULATORY CARE (NA) A4CGAMS4H;36 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of NA man-hours worked by nursing service personnel in the ambulatory care section.
4201.037 HOSPITAL BASED HOME CARE (RN) A4CGAMS4H;37 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of RN man-hours worked by nursing service personnel in the hospital based home care program.
4201.038 HOSPITAL BASED HOME CARE (LPN) A4CGAMS4H;38 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of LPN man-hours worked by nursing service personnel in the hospital based home care program.
4201.039 HOSPITAL BASED HOME CARE (NA) A4CGAMS4H;39 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of NA man-hours worked by nursing service personnel in the hospital based home care program.
4201.04 SATELLITE CLINICS (RN) A4CGAMS4H;40 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of RN man-hours worked by nursing service personnel in the satellite clinics.
4201.041 SATELLITE CLINICS (LPN) A4CGAMS4H;41 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of LPN man-hours worked by nursing service personnel in the satellite clinics.
4201.042 SATELLITE CLINICS (NA) A4CGAMS4I;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of NA man-hours worked by nursing service personnel in the satellite clinics.
4201.043 RECOVERY ROOM (RN) A4CGAMS4I;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of RN man-hours worked by nursing service personnel in the recovery room.
4201.044 RECOVERY ROOM (LPN) A4CGAMS4I;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of LPN man-hours worked by nursing service personnel in the recovery room.
4201.045 RECOVERY ROOM (NA) A4CGAMS4I;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of NA man-hours worked by nursing service personnel in the recovery room.
4201.046 ALCOHOL/DRUG DEP TRMT (RN) A4CGAMS4I;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of RN man-hours worked by nursing service personnel in the alcohol and drug dependence treatment section.
4201.047 ALCOHOL/DRUG DEP TRMT (LPN) A4CGAMS4I;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of LPN man-hours worked by nursing service personnel in the alcohol and drug dependence treatment section.
4201.048 ALCOHOL/DRUG DEP TRMT (NA) A4CGAMS4I;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of NA man-hours worked by nursing service personnel in the alcohol and drug dependence treatment section.
4201.049 AMBULATORY SURGERY (RN) A4CGAMS4I;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of RN man-hours worked by nursing service personnel in the ambulatory surgery care section.
4201.05 AMBULATORY SURGERY (LPN) A4CGAMS4I;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of LPN man-hours worked by nursing service personnel in the ambulatory surgery care section.
4201.051 AMBULATORY SURGERY (NA) A4CGAMS4I;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of NA man-hours worked by nursing service personnel in the ambulatory surgery care section.
4201.052 AMBULATORY SURG RECOVERY (RN) A4CGAMS4I;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of RN man-hours worked by nursing service personnel in the ambulatory surgery recovery care section.
4201.053 AMBULATORY SURG RECOVERY (LPN) A4CGAMS4I;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of LPN man-hours worked by nursing service personnel in the ambulatory surgery recovery care section.
4201.054 AMBULATORY SURG RECOVERY (NA) A4CGAMS4I;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of NA man-hours worked by nursing service personnel in the ambulatory surgery recovery care section.
4202.001 RN FTEE CEILING A4CGAMS4J;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The RN ceiling (FTEE) for nursing personnel assigned to Nursing Service only.
4202.002 LPN FTEE CEILING A4CGAMS4J;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The LPN ceiling (FTEE) for nursing personnel assigned to Nursing Service only.
4202.003 NA FTEE CEILING A4CGAMS4J;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The NA ceiling (FTEE) for nursing personnel assigned to Nursing Service only.
4202.004 CLERICAL FTEE CEILING A4CGAMS4J;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The clerical ceiling (FTEE) for Nursing Service.
4202.005 ADMIN OFFICER FTEE CEILING A4CGAMS4J;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The ceiling (FTEE) for persons assigned to Nursing Service who serve as Administrative Officers. They are not to be counted under clerical.
4202.006 CLINICAL SPEC FTEE CEILING A4CGAMS4J;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The RN ceiling (FTEE) for Clinical Specialist.
4202.007 NURSE PRAC FTEE CEILING A4CGAMS4J;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The RN ceiling (FTEE) for Nurse Practitioner.
4202.008 INFECT CTRL FTEE CEILING A4CGAMS4J;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The RN ceiling (FTEE) for Infection Control Nurse.
4202.009 PUB HLTH FTEE CEILING A4CGAMS4J;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The RN ceiling (FTEE) for Public Health Coordinator.
4202.01 STAFF NURSE FTEE CEILING A4CGAMS4J;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The RN ceiling (FTEE) for any registered nurse working in direct patient care within a bed unit or clinical/diagnostic area (i.e., specialized medical program).
4202.011 CHIEF NURSE FTEE CEILING A4CGAMS4J;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The RN ceiling (FTEE) for Chief Nurse.
4202.012 ASST CHIEF FTEE CEILING A4CGAMS4J;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The RN ceiling (FTEE) for Assistant Chief Nurse.
4202.013 ASSOC CHIEF FTEE CEILING A4CGAMS4J;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The RN ceiling (FTEE) for Associate Chief Nurse.
4202.014 ADMN SUPERVISOR FTEE CEILING A4CGAMS4J;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The RN ceiling (FTEE) for Supervisor.
4202.015 ADMN HEAD NURSE FTEE CEILING A4CGAMS4J;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The RN ceiling (FTEE) for Head Nurse.
4202.016 OTHER ADMN FTEE CEILING A4CGAMS4J;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
  • DESCRIPTION:  The RN ceiling (FTEE) for other than Staff Nurse. Include trainees assigned to nursing service, ombudsmen (i.e., patient advocates), quality assurance coordinators or utilization review coordinators. Oncology nurses not
    classified as clinical specialists/nurse practitioners should be included under this category.
4202.017 RESEARCH FTEE CEILING A4CGAMS4J;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The RN ceiling (FTEE) for Nurse Researcher.
4202.018 ASSOC CHIEF RES FTEE CEILING A4CGAMS4J;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The RN ceiling (FTEE) for Associate Chief, Research Section, Nursing Service.
4202.019 ASSOC CHIEF ED FTEE CEILING A4CGAMS4J;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The RN ceiling (FTEE) for Associate Chief, Education Section, Nursing Service.
4202.02 INSTRUCTOR FTEE CEILING A4CGAMS4J;20 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The RN ceiling (FTEE) for Nurse Instructor.
4202.021 RN POSITIONS FILLED A4CGAMS4J;21 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The number of Nursing Service RN positions filled (FTEE).
4202.022 LPN POSITIONS FILLED A4CGAMS4J;22 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The number of Nursing Service LPN positions filled (FTEE).
4202.023 NA POSITIONS FILLED A4CGAMS4J;23 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The number of Nursing Service NA positions filled (FTEE).
4202.024 CLERICAL POSITIONS FILLED A4CGAMS4J;24 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The number of Nursing Service clerical positions filled (FTEE).
4202.025 ADMIN OFFICER POSITIONS FILLED A4CGAMS4J;25 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The number of Administrative Officer positions filled (FTEE). They are not to be counted under the clerical category.
4202.026 CLINICAL SPEC POSITIONS FILLED A4CGAMS4J;26 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The number of positions filled (FTEE) for Clinical Specialist.
4202.027 NURSE PRAC POSITIONS FILLED A4CGAMS4J;27 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The number of positions filled (FTEE) for Nurse Practitioner.
4202.028 INFECT CTRL POSITIONS FILLED A4CGAMS4J;28 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The number of positions filled (FTEE) for Infection Control Nurse.
4202.029 PUB HLTH POSITIONS FILLED A4CGAMS4J;29 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The number of positions filled (FTEE) for Public Health Coordinator.
4202.03 STAFF NURSE POSITIONS FILLED A4CGAMS4J;30 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The number of positions filled (FTEE) for Staff Nurse. A Staff Nurse is any registered nurse working in direct patient care within a bed unit or clinical/diagnostic area (i.e., specialized medical program).
4202.031 CHIEF NURSE POSITIONS FILLED A4CGAMS4J;31 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The number of positions filled (FTEE) for Chief Nurse.
4202.032 ASST CHIEF POSITIONS FILLED A4CGAMS4J;32 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The number of positions filled (FTEE) for Assistant Chief Nurse.
4202.033 ASSOC CHIEF POSITIONS FILLED A4CGAMS4J;33 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The number of positions filled (FTEE) for Associate Chief, Nursing Service.
4202.034 SUPERVISOR POSITIONS FILLED A4CGAMS4J;34 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The number of positions filled (FTEE) for Supervisor.
4202.035 HEAD NURSE POSITIONS FILLED A4CGAMS4J;35 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The number of positions filled (FTEE) for Head Nurse.
4202.036 OTHER POSITIONS FILLED A4CGAMS4J;36 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
  • DESCRIPTION:  The number of positions filled (FTEE) for other than Staff Nurse. Include trainees assigned to Nursing Service, ombudsmen (i.e., patient advocates), quality assurance coordinators or utilization review coordinators.
    Oncology nurses not classified as clinical specialists/nurse practitioners should be included under this category.
4202.037 RESEARCH POSITIONS FILLED A4CGAMS4J;37 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The number of positions filled (FTEE) for Nurse Researcher.
4202.038 ASSOC CHIEF RESHR POSITIONS A4CGAMS4J;38 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The number of positions filled (FTEE) for Associate Chief, Research Section; Nursing Service.
4202.039 ASSOC CHIEF ED POSITIONS A4CGAMS4J;39 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The number of positions filled (FTEE) for Associate Chief, Education Section; Nursing Service.
4202.04 INSTRUCTOR POSITIONS FILLED A4CGAMS4J;40 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1)
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The number of positions filled (FTEE) for Nurse Instructor.
4217.001 561 (SUPERVISORY HOURS) A4CGAMS4K;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of actual supervisory hours worked for the Office of the Chief, Building Management Service.
4217.002 562 (SUPERVISORY HOURS) A4CGAMS4K;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of actual supervisory hours worked for Pest Control Operations.
4217.003 563 (SUPERVISORY HOURS) A4CGAMS4K;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of actual supervisory hours worked for Ground Management Operations.
4217.004 564 (SUPERVISORY HOURS) A4CGAMS4K;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of actual supervisory hours worked for Sanitation Operations.
4217.005 565 (SUPERVISORY HOURS) A4CGAMS4K;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of actual supervisory hours worked for Bed Services Operations.
4217.006 566 (SUPERVISORY HOURS) A4CGAMS4K;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of actual supervisory hours worked for Glazing Maintenance Operations.
4217.007 567 (SUPERVISORY HOURS) A4CGAMS4K;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of actual supervisory hours worked for Waste Management Operations.
4217.008 570 (SUPERVISORY HOURS) A4CGAMS4K;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of actual supervisory hours worked for Laundry and Dry Cleaning Operations.
4217.009 571 (SUPERVISORY HOURS) A4CGAMS4K;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of actual supervisory hours worked for Linen Operations.
4217.01 572 (SUPERVISORY HOURS) A4CGAMS4K;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of actual supervisory hours worked for Uniform Operations.
4217.011 573 (SUPERVISORY HOURS) A4CGAMS4K;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of actual supervisory hours worked for Patients Assistance Operations.
4217.012 575 (SUPERVISORY HOURS) A4CGAMS4K;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of actual supervisory hours worked for Interior Design Operations.
4217.013 577 (SUPERVISORY HOURS) A4CGAMS4K;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of actual supervisory hours worked for Directional Systems Operations.
4217.014 561 (LABOR HOURS) A4CGAMS4L;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of actual direct labor staff hours worked for the Office of the Chief, Building Management Services.
4217.015 562 (LABOR HOURS) A4CGAMS4L;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of actual direct labor staff hours worked for Pest Control Operations.
4217.016 563 (LABOR HOURS) A4CGAMS4L;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of actual direct labor staff hours worked for Ground Management Operations.
4217.017 564 (LABOR HOURS) A4CGAMS4L;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of actual direct labor staff hours worked Sanitation Operations.
4217.018 565 (LABOR HOURS) A4CGAMS4L;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of actual direct labor staff hours worked Bed Services Operations.
4217.019 566 (LABOR HOURS) A4CGAMS4L;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of actual direct labor staff hours worked for Glazing Maintenance Operations.
4217.02 567 (LABOR HOURS) A4CGAMS4L;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of actual direct labor staff hours worked for Waste Management Operations.
4217.021 570 (LABOR HOURS) A4CGAMS4L;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of actual direct labor staff hours worked for Laundry and Dry Cleaning Operations.
4217.022 571 (LABOR HOURS) A4CGAMS4L;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of actual direct labor staff hours worked for Linen Operations.
4217.023 572 (LABOR HOURS) A4CGAMS4L;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of actual direct labor staff hours worked for Uniform Operations.
4217.024 573 (LABOR HOURS) A4CGAMS4L;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of actual direct labor staff hours worked for Patients Assistance Operations.
4217.025 575 (LABOR HOURS) A4CGAMS4L;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of actual direct labor staff hours worked for Interior Design Operations.
4217.026 577 (LABOR HOURS) A4CGAMS4L;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of actual direct labor staff hours worked for Directional System Operations.
4217.027 561 (THERAPY HOURS) A4CGAMS4M;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total paid incentive therapy staff hours for the Office of the Chief, Building Management Service.
4217.028 563 (THERAPY HOURS) A4CGAMS4M;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total paid incentive therapy staff hours for Ground Management Operations.
4217.029 564 (THERAPY HOURS) A4CGAMS4M;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total paid incentive therapy staff hours for Sanitation Operations.
4217.03 565 (THERAPY HOURS) A4CGAMS4M;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total paid incentive therapy staff hours for Bed Services Operations.
4217.031 566 (THERAPY HOURS) A4CGAMS4M;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total paid incentive therapy staff hours for Glazing Maintenance Operations.
4217.032 567 (THERAPY HOURS) A4CGAMS4M;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total paid incentive therapy staff hours for Waste Management Operations.
4217.033 570 (THERAPY HOURS) A4CGAMS4M;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total paid incentive therapy staff hours for Laundry and Dry Cleaning Operations.
4217.034 571 (THERAPY HOURS) A4CGAMS4M;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total paid incentive therapy staff hours for Linen Operations.
4217.035 572 (THERAPY HOURS) A4CGAMS4M;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total paid incentive therapy staff hours for Uniform Operations.
4217.036 573 (THERAPY HOURS) A4CGAMS4M;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total paid incentive therapy staff hours for Patients Assistance Operations.
4217.037 575 (THERAPY HOURS) A4CGAMS4M;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total paid incentive therapy staff hours for Interior Design Operations.
4217.038 577 (THERAPY HOURS) A4CGAMS4M;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total paid incentive therapy staff hours for Directional System Operations.
4217.039 OT/COMP HOURS WORKED A4CGAMS4N;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total overtime and compensatory hours worked by all employees within Building Management Service.
4217.04 VACANT BED UNITS SERVICED A4CGAMS4N;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The total units serviced. Vacant bed units are generally identified as: terminal discharge cleaning, interward transfer, vacant bed maintenance, etc.
4217.041 DIET (FTEE ASSIGNED) A4CGAMS4N;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of Sanitation Operations FTEE who worked in Dietetics.
4217.042 OR (FTEE ASSIGNED) A4CGAMS4N;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of Sanitation Operations FTEE who worked in Surgical Suite (OR).
4217.043 NHQ (FTEE ASSIGNED) A4CGAMS4N;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of Sanitation Operations FTEE who worked in Non-Housekeeping Quarters.
4217.044 HQ (FTEE ASSIGNED) A4CGAMS4N;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of Sanitation Operations FTEE who worked in Housekeeping Quarters.
4217.045 CANT (FTEE ASSIGNED) A4CGAMS4N;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of Sanitation Operations FTEE who worked in Canteen.
4217.046 FURNITURE HANDLING (FTEE) A4CGAMS4N;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of Furniture Handling Operations FTEE who worked in Interior Design. This includes moving, assembly, set-up, etc.
4217.047 G-1 STAFFING STANDARDS A4CGAMS4N;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    Program Guide, Building Management Service Manpower Determination Methodology for Laundry Operations: M-1, Part VII, G-1. Enter zeros until further instructions.
4217.048 G-2 STAFFING STANDARDS A4CGAMS4N;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of supervisory and direct labor staff hours required for Sanitation Operations as developed by utilizing Program Guide G-2. Exclude administrative and clerical staff.
4218.001 PSYCHIATRY (NET SQUARE FEET) A4CGAMS4O;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total net square feet maintained by Sanitation Operations Labor for Psychiatry.
4218.002 INTERMEDIATE (NET SQUARE FEET) A4CGAMS4O;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total net square feet maintained by Sanitation Operations Labor for Intermediate Care.
4218.003 MEDICINE (NET SQUARE FEET) A4CGAMS4O;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total net square feet maintained by Sanitation Operations Labor for Medicine.
4218.004 NEUROLOGY (NET SQUARE FEET) A4CGAMS4O;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total net square feet maintained by Sanitation Operations Labor for Neurology.
4218.005 REHAB MEDICINE (NET SQ FEET) A4CGAMS4O;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total net square feet maintained by Sanitation Operations Labor for Rehabilitation Medicine. This will include Blind Rehabilitation Medicine.
4218.006 SPINAL CORD INJURY (NET SQ FT) A4CGAMS4O;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total net square feet maintained by Sanitation Operations Labor for Spinal Cord Injury.
4218.007 SURGERY (NET SQUARE FEET) A4CGAMS4O;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total net square feet maintained by Sanitation Operations Labor for Surgery.
4218.008 NHCU (NET SQUARE FEET) A4CGAMS4O;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total net square feet maintained by Sanitation Operations Labor for Nursing Home Care Unit.
4218.009 DOMICILIARY (NET SQ FEET) A4CGAMS4O;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total net square feet maintained by Sanitation Operations Labor for Domiciliary.
4218.01 CLINICS (NET SQUARE FEET) A4CGAMS4O;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  The total net square feet maintained by Sanitation Operations Labor for Clinics. Include Outpatient, Mental Hygiene, Day Treatment Center, Day Hospital, Drug Dependence, Alcohol Treatment, etc. Do not include satellite
    outpatient clinics.
4218.011 DENTAL (NET SQUARE FEET) A4CGAMS4O;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total net square feet maintained by Sanitation Operations Labor for Dental. Do not include Central Dental Laboratories.
4218.012 RESEARCH (NET SQUARE FEET) A4CGAMS4O;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total net square feet maintained by Sanitation Operations Labor for Research. Include all research areas including administrative space.
4218.013 ADMINISTRATIVE (NET SQ FEET) A4CGAMS4O;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  The total net square feet maintained by Sanitation Operations Labor for Administrative areas. Include Dietetic Service, Canteen, Non-Housekeeping Quarters, and other facility-related functions not indicated elsewhere.
    Also, include conference rooms, training rooms and offices not specifically included elsewhere.
4218.014 OTHER (NET SQUARE FEET) A4CGAMS4O;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  The total net square feet maintained by Sanitation Operations Labor for all other areas. Include stairwells, corridors, lobbies, vending areas, central dental laboratories, satellite outpatient clinics, regional medical
    educational center (RMEC), non-VA organizations, etc.
4218.015 PSYCHIATRY (MAN HOURS) A4CGAMS4P;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total actual staff hours worked by Sanitation Operations Labor for Psychiatry.
4218.016 INTERMEDIATE (MAN HOURS) A4CGAMS4P;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total actual staff hours worked by Sanitation Operations Labor for Intermediate Care.
4218.017 MEDICINE (MAN HOURS) A4CGAMS4P;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total actual staff hours worked by Sanitation Operations Labor for Medicine.
4218.018 NEUROLOGY (MAN HOURS) A4CGAMS4P;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total actual staff hours worked by Sanitation Operations Labor for Neurology.
4218.019 REHAB MEDICINE (MAN HOURS) A4CGAMS4P;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total actual staff hours worked by Sanitation Operations Labor for Rehabilitation Medicine. Include Blind Rehabilitation Medicine.
4218.02 SPINAL CORD INJURY (MAN HRS) A4CGAMS4P;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total actual staff hours worked by Sanitation Operations Labor for Spinal Cord Injury.
4218.021 SURGERY (MAN HOURS) A4CGAMS4P;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total actual staff hours worked by Sanitation Operations Labor for Surgery.
4218.022 NHCU (MAN HOURS) A4CGAMS4P;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total actual staff hours worked by Sanitation Operations Labor for Nursing Home Care Unit.
4218.023 DOMICILIARY (MAN HOURS) A4CGAMS4P;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total actual staff hours worked by Sanitation Operations Labor for the Domiciliary.
4218.024 CLINICS (MAN HOURS) A4CGAMS4P;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  The total actual staff hours worked by Sanitation Operations Labor for Clinics. Include Outpatient, Mental Hygiene, Day Treatment Center, Day Hospital, Drug Dependence, Alcohol Treatment, etc. Do not include satellite
    outpatient clincs.
4218.025 DENTAL (MAN HOURS) A4CGAMS4P;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total actual staff hours worked by Sanitation Operations Labor for Dental. Do not include Central Dental Laboratories.
4218.026 RESEARCH (MAN HOURS) A4CGAMS4P;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total actual staff hours worked by Sanitation Operations Labor for Research. Include research administrative space.
4218.027 ADMINISTRATIVE (MAN HOURS) A4CGAMS4P;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  The total actual staff hours worked by Sanitation Operations Labor for Administrative areas. Include Dietetic Service, Canteen Service, Non-Housekeeping Quarters and other facility-related functions not indicated
    elsewhere. Also include conference rooms, training rooms and offices not specifically included as part of the operations indicated elsewhere.
4218.028 OTHER (MAN HOURS) A4CGAMS4P;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  The total actual staff hours worked by Sanitation Operations Labor for other areas. Include all stairwells, corridors, lobbies, vending areas, central dental laboratories, satellite outpatient clinics, regional medical
    education center (RMEC), or non-Va organizations not included elsewhere.
4218.029 FACILITY GROSS SQ FOOTAGE A4CGAMS4P;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    The gross square footage of the facility.
4219.001 MULTI-ACTIVITY LDRY (LBS) A4CGAMS4Q;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total pounds of soiled laundry processed by VA activities producing linen/uniforms for their own and for other VA activities and/or for other than VA use.
4219.002 SINGLE-ACTIVITY LDRY (LBS) A4CGAMS4Q;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total pounds of soiled laundry processed by VA activities producing linen/uniforms for their own use and/or for other than VA use.
4219.003 COMMERCIAL CONTRACT (LBS) A4CGAMS4Q;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total pounds of soiled laundry processed by VA activities contracting with a commercial source for their laundry/uniforms production.
4219.004 ALL OTHER (LBS) A4CGAMS4Q;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    All other pounds of soiled laundry processed for non-VA organizations.
4219.005 UNIFORMS (PIECE COUNT) A4CGAMS4Q;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of uniform pieces (shirts and trousers are considered separate pieces) processed for each medical care facility whether processed by multi-activity, single activity, or commercial contract.
4219.006 PATIENT'S CLOTHING (COUNT) A4CGAMS4Q;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of patient's clothing pieces processed for each medical care facility, whether processed by multi-activity, single- activity, or commercial contract.
4219.007 DIETETICS (PIECE COUNT) A4CGAMS4Q;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of linen and uniform pieces issued to Dietetic Service.
4219.008 CANTEEN (PIECE COUNT) A4CGAMS4Q;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of linen and uniform pieces issued to Canteen Service.
4219.009 LAUNDRY SQUARE FOOTAGE A4CGAMS4Q;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  The net square footage encompassing the laundry production process (i.e., soil storage and sorting, wash condition, dry, iron, fold, or otherwise preparing linen prior to storage for distribution). Include respective
    locker, lounge, toilet, shower, and administrative areas. Surgical pack preparation and linen/uniform mending are linen functions and not part of the laundry production process.
4219.01 SATELLITE FACILITY (1) A4CGAMS4Q;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    Multi-activity laundries will enter the three digit VA medical care facility number for the satellite served.
4219.011 SATELLITE FACILITY (2) A4CGAMS4Q;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    Multi-activity laundries will enter the three digit VA medical care facility number for the satellite served.
4219.012 SATELLITE FACILITY (3) A4CGAMS4Q;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    Multi-activity laundries will enter the three digit VA medical care facility number for the satellite served.
4219.013 SATELLITE FACILITY (4) A4CGAMS4Q;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    Multi-activity laundries will enter the three digit VA medical care facility number for the satellite served.
4219.014 SATELLITE FACILITY (5) A4CGAMS4Q;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    Multi-activity laundries will enter the three digit VA medical care facility number for the satellite served.
4219.015 SATELLITE FACILITY (6) A4CGAMS4Q;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    Multi-activity laundries will enter the three digit VA medical care facility number for the satellite served.
4219.016 PSYCHIATRY (LBS ISSUED) A4CGAMS4Q;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total pounds of linen issued, not including uniforms, to Psychiatry.
4219.017 INTERMEDIATE (LBS ISSUED) A4CGAMS4Q;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total pounds of linen issued, not including uniforms, to Intermediate Care.
4219.018 MEDICINE (LBS ISSUED) A4CGAMS4Q;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total pounds of linen issued, not including uniforms, to Medicine.
4219.019 NEUROLOGY (LBS ISSUED) A4CGAMS4Q;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total pounds of linen issued, not including uniforms, to Neurology.
4219.02 REHAB MEDICINE (LBS ISSUED) A4CGAMS4Q;20 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total pounds of linen issued, not including uniforms, to Rehabilitation Medicine. Include Blind Rehabilitation Medicine.
4219.021 SPINAL CORD INJURY (LBS ISS) A4CGAMS4Q;21 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total pounds of linen issued, not including uniforms, to Spinal Cord Injury.
4219.022 SURGERY (LBS ISSUED) A4CGAMS4Q;22 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total pounds of linen issued, not including uniforms, to Surgery.
4219.023 NHCU (LBS ISSUED) A4CGAMS4Q;23 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total pounds of linen issued, not including uniforms, to Nursing Home Care Unit.
4219.024 DOMICILIARY (LBS ISSUED) A4CGAMS4Q;24 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total pounds of linen issued, not including uniforms, to the Domiciliary.
4219.025 CLINICS (LBS ISSUED) A4CGAMS4Q;25 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  The total pounds of linen issued, not including uniforms, to the Clinics. Include Outpatient, Mental Hygiene, Day Treatment Center, Day Hospital, Drug Dependence, Alcohol Treatment, etc. Do not include satellite outpatient
    clinics.
4219.026 DENTAL (LBS ISSUED) A4CGAMS4Q;26 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total pounds of linen issued, not including uniforms, to Dental. Do not include Central Dental Laboratories.
4219.027 RESEARCH (LBS ISSUED) A4CGAMS4Q;27 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total pounds of linen issued, not including uniforms, to Research.
4219.028 ADMINISTRATIVE (LBS ISSUED) A4CGAMS4Q;28 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  The total pounds of linen issued, not including uniforms, to Administrative. Includes Dietetic Service, Canteen Service, Non-Housekeeping Quarters, OD Rooms, and other facility-related functions not indicated elsewhere.
    Also, include conference rooms, training rooms, and offices not specifically indicated elsewhere.
4219.029 OTHER (LBS ISSUED) A4CGAMS4Q;29 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  The total pounds of linen issued, not including uniforms, to all other areas. Include regional medical education center (RMEC), regional offices, central dental laboratories, satellite outpatient clinics, or non-VA
    organizations not included as part of the operations listed elsewhere.
4219.03 UTILITY COST A4CGAMS4Q;30 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total cost for in-house laundry utilities. This amount should equal the monthly cost transfer reports submitted by Engineering Service to Fiscal Service.
4220.001 OFFICE OF THE CHIEF A4CGAMS4R;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 10, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total hours for all contracted employee staff hours in the Office of the Chief including management, supervisory, direct labor, and clerical employees.
4220.002 ENVIRONMENTAL CARE A4CGAMS4R;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 10, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total hours for all contracted employee staff hours in Environmental Care including management, supervisory, direct labor, and clerical employees.
4220.003 TEXTILE CARE A4CGAMS4R;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 10, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total hours for all contracted employee staff hours in Textile Care including management, supervisory, direct labor, and clerical employees.
4220.004 INTERIOR DESIGN A4CGAMS4R;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 10, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total hours for all contracted employee staff hours in Interior Design including management, supervisory, direct labor, and clerical employees.
4220.005 VOLUNTEER HOURS A4CGAMS4R;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 10, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total hours donated by volunteers for all cost center assignments.
4220.006 NON-PAID HOURS A4CGAMS4R;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 10, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total non-paid hours such as non-paid incentive therapy, etc., for all cost centers. Exclude all reported volunteer hours.
4224.001 MEAT, FISH, ETC. TOTAL COST FHAMS4A;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
  • LAST EDITED:  APR 30, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
4224.002 MILK TOTAL COST FHAMS4A;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
  • LAST EDITED:  APR 30, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
4224.003 FRUITS/VEGS TOTAL COST FHAMS4A;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
  • LAST EDITED:  APR 30, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
4224.004 BREAD, ETC. TOTAL COST FHAMS4A;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
  • LAST EDITED:  APR 30, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
4224.005 NUT. PROD. TOTAL COST FHAMS4A;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
  • LAST EDITED:  APR 30, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
4224.006 MISC. TOTAL COST FHAMS4A;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
  • LAST EDITED:  APR 30, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
4224.007 INVENTORY TOTAL VALUE FHAMS4A;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
  • LAST EDITED:  APR 30, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
4224.008 INPATIENT MEALS FHAMS4A;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
  • LAST EDITED:  APR 30, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
4224.009 OUTPATIENT MEALS FHAMS4A;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
  • LAST EDITED:  APR 30, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
4224.01 PAID MEALS FHAMS4A;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
  • LAST EDITED:  APR 30, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
4224.011 GRATUITOUS MEALS FHAMS4A;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
  • LAST EDITED:  APR 30, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
4224.012 TOTAL MEALS SERVED FHAMS4A;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
  • LAST EDITED:  APR 30, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
4264.001 HOBBIES (HOURS) A4CGAMS4S;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 18, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of program hours needed by the staff to conduct hobbies (i.e., programs focused towards arts, crafts, collections, clubs, etc).
4264.002 MUSIC (HOURS) A4CGAMS4S;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 18, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of program hours needed by the staff to conduct music (i.e., programs utilizing the basic tools of music as a medium in which the patient is an active participant).
4264.003 GAMES/SPORTS/ATHLETICS (HRS) A4CGAMS4S;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 18, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of program hours needed by the staff to conduct games, sports and athletics (i.e., individual, dual and other group activities in nature).
4264.004 SPECIAL EVENTS (HOURS) A4CGAMS4S;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 18, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of program hours needed by the staff to conduct special events (i.e., all programs and celebrations which are not scheduled monthly).
4264.005 DANCE (HOURS) A4CGAMS4S;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 18, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of program hours needed by the staff to conduct dances (i.e., all programs that engage, teach or encourage patients in any form of basic dance movement and rhythmic action).
4264.006 CREATIVE COMMUNICATION (HRS) A4CGAMS4S;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 18, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  The number of program hours needed by the staff to conduct creative communication (i.e., all programs using reading, speaking, writing, radio/TV production, etc., in which the primary emphasis is on creative use of these
    media).
4264.007 SOCIAL RECREATION (HOURS) A4CGAMS4S;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 18, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  The number of program hours needed by the staff to conduct social recreation (i.e., programs such as parties, coffee hours, ward visitations, etc., which are adapted and conducted to provide opportunity for social
    functioning and personal interaction).
4264.008 OUTDOOR RECREATION (HOURS) A4CGAMS4S;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 18, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  The number of program hours needed by the staff to conduct outdoor recreation (i.e., programs which have their main focus on nature and outdoor appreciation, study and skill development in activities such as fishing,
    skiing, cycling, etc).
4264.009 PHYSICAL FITNESS (HOURS) A4CGAMS4S;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 18, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of program hours needed by the staff to conduct physical fitness (i.e., programs which stress basic improvement or maintenance of physical conditioning.
4264.01 SPECTATOR EVENTS (HOURS) A4CGAMS4S;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 18, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of program hours needed by the staff to conduct spectator events (i.e., planned programs in which principal involvement of patients is that of observing such activities as movies, shows, sporting events, etc).
4264.011 LEISURE/EDUC/COUNSEL (HRS) A4CGAMS4S;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 18, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  The number of program hours needed by the staff to conduct leisure/ education/counseling (i.e., programs in which patient leisure problems are assessed, and counseling techniques are predominately used for specific
    patients in group or individual sessions to develop decision making and problem solving skills, related to leisure participation).
4264.012 SPECIAL THERAPY (HOURS) A4CGAMS4S;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  APR 18, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  The number of program hours needed by the staff to conduct special programs (i.e., programs which are designed to meet specific needs that are not listed in other categories such as psychodrama, individual or group
    therapy, reality orientation, sensory integration, etc).
4264.013 HOBBIES (ATTENDANCE) A4CGAMS4S;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of patients attending all hobby programs.
4264.014 MUSIC (ATTENDANCE) A4CGAMS4S;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of patients attending all music programs.
4264.015 GAMES/SPORTS/ATH (ATTENDANCE) A4CGAMS4S;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of patients attending all games/sports/athletic programs.
4264.016 SPECIAL EVENTS (ATTENDANCE) A4CGAMS4S;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of patients attending all special event programs.
4264.017 DANCE (ATTENDANCE) A4CGAMS4S;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of patients attending all dance programs.
4264.018 CREATIVE COMM (ATTENDANCE) A4CGAMS4S;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of patients attending all creative communication programs.
4264.019 SOCIAL RECREATION (ATTENDANCE) A4CGAMS4S;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of patients attending all social recreation programs.
4264.02 OUTDOOR REC (ATTENDANCE) A4CGAMS4S;20 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of patients attending all outdoor recreation programs.
4264.021 PHYSICAL FITNESS (ATTENDANCE) A4CGAMS4S;21 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of patients attending all physical fitness programs.
4264.022 SPECTATOR EVENTS (ATTENDANCE) A4CGAMS4S;22 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of patients attending all spectator event programs.
4264.023 LEISURE/EDUC/COUN (ATTENDANCE) A4CGAMS4S;23 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of patients attending all leisure/education/counseling programs.
4264.024 SPECIAL THERAPY (ATTENDANCE) A4CGAMS4S;24 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of patients attending all specical therapy programs.
4264.025 VA GIVEN (TRAINING HRS) A4CGAMS4S;25 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total Recreation Service staff hours provided for VA training (i.e., leading, teaching, planning, etc). Include training with affiliated and other students, volunteers, employees, etc.
4264.026 VA TAKEN (TRAINING HRS) A4CGAMS4S;26 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total Recreation Service staff hours of attendance in training given by the VA.
4264.027 OTHER GIVEN (TRAINING HRS) A4CGAMS4S;27 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total Recreation Service staff hours provided for training other than VA, (i.e., leading, teaching, planning, etc).
4264.028 OTHER TAKEN (TRAINING HRS) A4CGAMS4S;28 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total Recreation Service staff hours of attendance in training given by other than VA.
4264.029 RESEARCH STAFF HOURS A4CGAMS4S;29 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  The total staff hours used for research programs in Recreation Service, (i.e., writing proposals, planning, testing formats, developing instrumentation, data compiling, analysis, etc). Staff hours used in conducting,
    assisting and supervising recreational programs for which data is compiled should not be counted in this total.
4264.03 PATIENT TRMT MEETINGS A4CGAMS4S;30 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total Recreation Service staff hours used in attending any patient staff meeting, (i.e., ward or chart rounds, treatment planning meeting, etc).
4264.031 RECREATION (ADMIN HRS) A4CGAMS4S;31 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total staff hours used in attending administrative meetings conducted by and for Recreation Service.
4264.032 MEDICAL CTR (ADMIN HRS) A4CGAMS4S;32 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  The total Recreation Service staff hours used in attending medical center administrative and committee meetings (i.e., Director's Staff Conference, Administrative Executive Board, VAVS Committee, Position Management
    Committee, etc).
4264.033 PROFESSIONAL (OTHER MEETING) A4CGAMS4S;33 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total Recreation Service staff hours of authorized absence granted for attending local or national professional meetings.
4264.034 COMMUNITY (OTHER MEETING) A4CGAMS4S;34 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The total Recreation Service staff hours of authorized absence granted for attending community meetings, (i.e., American Red Cross, United Way, service organizations, etc).
4264.035 BUDGET A4CGAMS4S;35 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The quarterly operating budget in whole dollars for Recreation Service from the medical center's appropriated funds. General Post and donated funds should not be included.
4264.036 WEEKEND/HOLIDAY HOURS A4CGAMS4S;36 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total Recreation Service staff hours worked for all weekends and Federally approved holidays. Weekend hours are counted from 4:30 p.m. Friday until 7:00 a.m. Monday.
4264.037 THERAPIST HOURS A4CGAMS4S;37 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of hours actually worked by the therapist, assistant chief, chief, and supervisors. Do not include annual, sick, or other types of leave.
4264.038 ASSISTANTS HOURS A4CGAMS4S;38 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of assistants' hours actually worked. Do not include annual, sick, LWOP, or other types of leave.
4264.039 CLERICAL HOURS A4CGAMS4S;39 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of clerical hours actually worked. Do not include hours assigned to other services, or annual, sick, LWOP, or other types of leave.
4264.04 OTHER HOURS A4CGAMS4S;40 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  The number of hours actually worked by employees other than those reported elsewhere. Include drivers assigned to Recreation Service, projectionists, stay-in-school employees and other similar types of employees. Do not
    include annual, sick or other types of leave.
4264.041 RECREATION EQUIPMENT A4CGAMS4S;41 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The whole dollar value of nonexpendable implements/articles donated to Recreation Service for use in the operation of recreation programs (i.e., pool tables, pianos, bulletin boards, projectors etc).
4264.042 RECREATION MATERIALS A4CGAMS4T;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The whole dollar value of expendable supplies/elements donated to Recreation Service for use in conducting recreation programs (i.e., playing cards, plastic models, game prizes, decorations, etc).
4264.043 PROGRAM SERVICES A4CGAMS4T;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The whole dollar value of auxiliary services donated to Recreation Service for use in providing recreation programs (i.e., transportation, fees, admissions, performers, etc).
4264.044 PERSONAL COMFORT A4CGAMS4T;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The whole dollar value of expendable individual patient items donated to Recreation Service for use as a part of recreation programs (i.e., refreshments, holiday gifts, party favors, grooming accessories, etc).
4264.045 PLANNED OFF FACILITY COMM A4CGAMS4T;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of "off-facility" activities that were planned by Recreation Service.
4265.001 HOBBIES A4CGAMS4U;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of prescribed 30 minute treatment units for hobbies.
4265.002 MUSIC A4CGAMS4U;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of prescribed 30 minute treatment units for music.
4265.003 GAMES/SPORTS/ATHLETICS A4CGAMS4U;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of prescribed 30 minute treatment units for games/sports/ athletics.
4265.004 SPECIAL EVENTS A4CGAMS4U;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of prescribed 30 minute treatment units for special events.
4265.005 DANCE A4CGAMS4U;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of prescribed 30 minute treatment units for dance.
4265.006 CREATIVE COMMUNICATION A4CGAMS4U;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of prescribed 30 minute treatment units for creative communication.
4265.007 SOCIAL RECREATION A4CGAMS4U;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of prescribed 30 minute treatment units for social recreation.
4265.008 OUTDOOR RECREATION A4CGAMS4U;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of prescribed 30 minute treatment units for outdoor recreation.
4265.009 PHYSICAL FITNESS A4CGAMS4U;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of prescribed 30 minute treatment units for physical fitness.
4265.01 SPECTATOR EVENTS A4CGAMS4U;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of prescribed 30 minute treatment units for spectator events.
4265.011 LEISURE/EDUC/COUNSELING A4CGAMS4U;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of prescribed 30 minute treatment units for leisure/ education/counseling.
4265.012 SPECIAL THERAPY PROGRAMS A4CGAMS4U;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of prescribed 30 minute treatment units for special therapy.
4265.013 PSYCHIATRY (UNITS) A4CGAMS4U;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of prescribed 30 minute treatment units by Psychiatry.
4265.014 INTERMEDIATE MEDICINE (UNITS) A4CGAMS4U;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of prescribed 30 minute treatment units by Intermediate Medicine.
4265.015 MEDICINE (UNITS) A4CGAMS4U;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of prescribed 30 minute treatment units by Medicine.
4265.016 NEUROLOGY (UNITS) A4CGAMS4U;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of prescribed 30 minute treatment units by Neurology.
4265.017 REHAB MEDICINE (UNITS) A4CGAMS4U;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of prescribed 30 minute treatment units by Rehabilitation Medicine.
4265.018 BLIND REHABILITATION (UNITS) A4CGAMS4U;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of prescribed 30 minute treatment units by Blind Rehabilitation Medicine.
4265.019 DRUG DEP TRMT INPATIENT A4CGAMS4U;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of prescribed 30 minute treatment units by Drug Dependence Treatment Unit (Inpatient).
4265.02 ALCOHOL TRMT INPATIENT A4CGAMS4U;20 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of prescribed 30 minute treatment units by Alcohol Treatment Unit (Inpatient).
4265.021 SCI INPATIENT A4CGAMS4U;21 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of prescribed 30 minute treatment units by Spinal Cord Injury (Inpatient)
4265.022 SURGERY (INC NEUROSURGERY) A4CGAMS4U;22 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of prescribed 30 minute treatment units by Surgery including Neurosurgery.
4265.023 VA NURSING HOME A4CGAMS4U;23 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of prescribed 30 minute treatment units by VA Nursing Home Care Unit.
4265.024 DAY TEATMENT CENTER A4CGAMS4U;24 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of prescribed 30 minute treatment units by Day Treatment Center.
4265.025 DAY HOSPITAL PROGRAM A4CGAMS4U;25 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of prescribed 30 minute treatment units by Day Hospital Program.
4265.026 VA DOMICILIARY A4CGAMS4U;26 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of prescribed 30 minute treatment units by VA Domiciliary.
4265.027 COMM NURSING HOME A4CGAMS4U;27 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of prescribed 30 minute treatment units by Community Nursing Home Care.
4265.028 MENTAL HEALTH (OUTPATIENT) A4CGAMS4U;28 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of prescribed 30 minute treatment units by Mental Hygiene Clinic (Outpatient).
4265.029 DRUG DEP (OUTPATIENT) A4CGAMS4U;29 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of prescribed 30 minute treatment units by Drug Dependence Treatment Center (Outpatient).
4265.03 ALCOHOL TRMT (OUTPATIENT) A4CGAMS4U;30 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of prescribed 30 minute treatment units by Alcohol Treatment Unit (Outpatient).
4265.031 SCI (OUTPATIENT) A4CGAMS4U;31 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of prescribed 30 minute treatment units by Spinal Cord Injury (Outpatient).
4265.032 MEDICAL/SURGICAL (OUTPATIENT) A4CGAMS4U;32 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  APR 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of prescribed 30 minute treatment units by Medical/ Surgical (Outpatient).
4266 QUARTER GECOPHY4;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>4)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  JUL 13, 1990
  • HELP-PROMPT:  Type a Number between 1 and 4, 0 Decimal Digits
  • DESCRIPTION:  
    The reporting quarter (e.g., "1" = first quarter, "2" = second, etc.)
4267 FISCAL YEAR GECOPHY4;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,2)_Y
  • LAST EDITED:  JUL 06, 1998
  • HELP-PROMPT:  Answer must be 2 characters in length and numeric.
  • DESCRIPTION:  
    The last two digits of the reporting fiscal year (e.g., "90" = 1990).
4268 FACILITY CODE SUFFIX GECOPHY4;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2AN) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,2)_Y
  • LAST EDITED:  JUL 05, 1990
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    The two character suffix for multiple facility reporting units.
4269 ID (PART-1) GECOPHY4;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>2)!(X<2)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  JUL 13, 1990
  • HELP-PROMPT:  Type a Number between 2 and 2, 0 Decimal Digits
  • DESCRIPTION:  
    Indicates the data which follows is related to "contract physician service".
4270 SPECIALTY ASSIGNMENT (PART-1) GECOPHY4;5 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  JUL 09, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length and numeric.
  • DESCRIPTION:  
    The specialty assignment code for each contract physician.
4271 FTEE (PART-1) GECOPHY4;6 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E("00",$L($P(Y,".",1))+1,2)_$P(Y,".",1),$P(Y,".",2)=$E("0",$L($P(Y,".",2))+1,1)_$P(Y,".",2),Y=$P(Y,".",1)_$P(Y,".",2)
  • LAST EDITED:  JUL 12, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99.9, 1 Decimal Digit
  • DESCRIPTION:  
    The number of full-time physicians (employee) equivalents (FTEE) rounded to the nearest tenth for each specialty reported.
4272 CONTRACT STARTING DATE GECOPHY4;7 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:(Y<1)!(+$E(X,4,5)=0) X Q:'$D(X) S X=$E(X,4,5)_$E(X,2,3)
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y S:+Y=0 Y=" "
  • LAST EDITED:  JUL 06, 1998
  • DESCRIPTION:  
    The month and last two digits of the calendar year in which the current contract started.
4273 CONTRACT TERMINATION DATE GECOPHY4;8 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:(Y<1)!(+$E(X,4,5)=0) X Q:'$D(X) S X=$E(X,4,5)_$E(X,2,3)
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y S:+Y=0 Y=" "
  • LAST EDITED:  JUL 06, 1998
  • DESCRIPTION:  
    The month and last two digits of the calendar year in which the contract will expire.
4274 TOTAL CONTRACT COST GECOPHY4;9 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
  • LAST EDITED:  JUL 09, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total contract cost rounded to the nearest whole dollar. This should be the cost of the contract regardless of the number of years or FTEE involved.
4275 GAIN OR LOSS INDICATOR GECOPHY4;10 SET
************************REQUIRED FIELD************************
  • '3' FOR GAIN;
  • '4' FOR LOSS;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  JUL 13, 1990
  • DESCRIPTION:  
    Identifies the data as a gain or loss to the reporting system.
4276 SPECIALTY ASSIGNMENT (PART-2) GECOPHY4;11 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  JUL 09, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length and numeric.
  • DESCRIPTION:  
    The specialty assignment code for the gain or loss.
4277 DUTY STATUS (PART-2) GECOPHY4;12 SET
************************REQUIRED FIELD************************
  • 'F' FOR FULL-TIME;
  • 'P' FOR PART-TIME;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  JUL 13, 1990
  • DESCRIPTION:  
    The duty status of each physician gain or loss.
4278 PHYSICIAN GRADE (PART-2) GECOPHY4;13 SET
************************REQUIRED FIELD************************
  • '1' FOR ASSOCIATE;
  • '2' FOR FULL;
  • '3' FOR INTERMEDIATE;
  • '4' FOR SENIOR;
  • '5' FOR CHIEF;
  • '6' FOR EXECUTIVE;
  • '7' FOR DIRECTOR;
  • '9' FOR STATUTORY;
  • '0' FOR UNGRADED;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  JUL 13, 1990
  • DESCRIPTION:  
    The grade of the physician gain or loss.
4279 PHYSICIAN STEP (PART-2) GECOPHY4;14 SET
************************REQUIRED FIELD************************
  • '1' FOR 1;
  • '2' FOR 2;
  • '3' FOR 3;
  • '4' FOR 4;
  • '5' FOR 5;
  • '6' FOR 6;
  • '7' FOR 7;
  • '8' FOR 8;
  • '9' FOR 9;
  • '0' FOR 10;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  JUL 13, 1990
  • DESCRIPTION:  
    The step of the physician gain or loss.
4280 DIPLOMATE STATUS (PART-2) GECOPHY4;15 SET
************************REQUIRED FIELD************************
  • 'B' FOR BOARD CERTIFIED;
  • 'N' FOR NOT BOARD CERTIFIED;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  JUL 13, 1990
  • DESCRIPTION:  
    Whether or not the physician gain or loss is certified by an American Specialty Board.
4281 DATE 0F BIRTH (PART-2) GECOPHY4;16 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:(Y<1)!(+$E(X,4,5)=0) X Q:'$D(X) S X=$E(X,4,5)_$E(X,2,3)
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y S:+Y=0 Y=" "
  • LAST EDITED:  JUL 06, 1998
  • DESCRIPTION:  
    The date of birth (month and year only) of the physician gain or loss.
4282 EDUCATION STATUS (PART-2) GECOPHY4;17 SET
************************REQUIRED FIELD************************
  • 'U' FOR U.S./CANADIAN MEDICAL SCHOOL;
  • 'F' FOR FOREIGN MEDICAL SCHOOL;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  JUL 13, 1990
  • DESCRIPTION:  
    Whether the physician gain or loss is a U.S./Canadian or foreign medical school graduate.
4283 GAIN FROM CODE (PART-2) GECOPHY4;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y S:+Y=0 Y=" "
  • LAST EDITED:  JUL 13, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length and numeric.
  • DESCRIPTION:  
    The code which identifies the physician's most recent principal employment or activity before joining the VA.
4284 MONTHS SPENT RECRUITING-PT 2 GECOPHY4;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y S:+Y=0 Y=" "
  • LAST EDITED:  JUL 14, 1990
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of months that were actually spent actively recruiting for the position now occupied by the gain. Round the time to the nearest whole month.
4285 OFFERS MADE GECOPHY4;20 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y S:+Y=0 Y=" "
  • LAST EDITED:  NOV 06, 1990
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of formal offers made to physicians to fill this position including the offer that was accepted.
4286 LOSS TO CODE GECOPHY4;21 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y S:+Y=0 Y=" "
  • LAST EDITED:  JUL 13, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length and numeric.
  • DESCRIPTION:  
    The code which identifies the destination of the physician after leaving VA employment.
4286.5 LENGTH OF VA SERVICE GECOPHY4;22 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4)!'((X?4N)&(+$E(X,3,4)<12)) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 13, 1990
  • HELP-PROMPT:  Answer must be 4 characters in length and numeric. A length of VA service of 6 years, 9 months is to be entered as '0609'.
  • DESCRIPTION:  
    The length of VA service acquired by the physician loss is to be reported in full years and full months only. Disregard days entirely. Only VA service is to be counted. Do not include other government service.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
4287 DUTY STATUS (PART-3) GECOPHY4A;1 SET
************************REQUIRED FIELD************************
  • '6' FOR FULL-TIME POSITION;
  • '7' FOR PART-TIME POSITION;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  JUL 13, 1990
  • DESCRIPTION:  
    The duty status of the position that is reported as vacant, recruited for, or committed.
4288 SPECIALTY ASSIGNMENT (PART-3) GECOPHY4A;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  JUL 09, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length and numeric.
  • DESCRIPTION:  
    The specialty assignment code of the physician vacancy.
4289 TYPE OF POSITION GECOPHY4A;3 SET
  • 'C' FOR CENTRALIZED POSITION;
  • 'N' FOR NON-CENTRALIZED POSITION;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  JUL 12, 1990
  • DESCRIPTION:  
    Whether or not the vacant position is "centralized" (for recruitment purposes).
4290 MONTHS VACANT GECOPHY4A;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y S:+Y=0 Y=" "
  • LAST EDITED:  JUL 12, 1990
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of months the position has been vacant. If a position has been vacant for any portion of a month it should be reported as a whole month.
4291 MONTHS SPENT RECRUITING-PT 3 GECOPHY4A;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y S:+Y=0 Y=" "
  • LAST EDITED:  JUL 13, 1990
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of months spent actively recruiting for the position. Round to the nearest whole month.
4292 OFFERS MADE BY VA GECOPHY4A;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y="" Y=" " Q:Y=" " S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  NOV 06, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of formal offers made during the entire active recruitment period. Do not include offers made and then withdrawn by the facility and do not include offers made that were subsequently accepted.
4293 OFFERS REFUSED GECOPHY4A;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y="" Y=" " Q:Y=" " S Y=$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  NOV 06, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    The number of offers that were refused.
4294 PHYSICIAN GRADE (PART-3) GECOPHY4A;8 SET
  • '1' FOR ASSOCIATE;
  • '2' FOR FULL;
  • '3' FOR INTERMEDIATE;
  • '4' FOR SENIOR;
  • '5' FOR CHIEF;
  • '6' FOR EXECUTIVE;
  • '7' FOR DIRECTOR;
  • '9' FOR STATUTORY;
  • '0' FOR UNGRADED;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  JUL 13, 1990
  • DESCRIPTION:  
    The grade approved for the candidate committed to the position.
4295 PHYSICIAN STEP (PART-3) GECOPHY4A;9 SET
  • '1' FOR 1;
  • '2' FOR 2;
  • '3' FOR 3;
  • '4' FOR 4;
  • '5' FOR 5;
  • '6' FOR 6;
  • '7' FOR 7;
  • '8' FOR 8;
  • '9' FOR 9;
  • '0' FOR 10;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  JUL 13, 1990
  • DESCRIPTION:  
    The step approved for the candidate committed to the position.
4296 DIPLOMATE STATUS (PART-3) GECOPHY4A;10 SET
  • 'B' FOR BOARD CERTIFIED;
  • 'N' FOR NOT BOARD CERTIFIED;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  JUL 13, 1990
  • DESCRIPTION:  
    Whether or not the candidate committed is certified by an American Specialty Board.
4297 DATE OF BIRTH (PART-3) GECOPHY4A;11 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:(Y<1)!(+$E(X,4,5)=0) X Q:'$D(X) S X=$E(X,4,5)_$E(X,2,3)
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y S:+Y=0 Y=" "
  • LAST EDITED:  JUL 06, 1998
  • DESCRIPTION:  
    The date of birth (month and year) of the candidate committed.
4298 EDUCATION STATUS (PART-3) GECOPHY4A;12 SET
  • 'U' FOR U.S./CANADIAN MEDICAL SCHOOL;
  • 'F' FOR FOREIGN MEDICAL SCHOOL;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  JUL 13, 1990
  • DESCRIPTION:  
    Whether the candidate committed is a U.S./Canadian or foreign medical school graduate.
4299 GAIN FROM CODE (PART-3) GECOPHY4A;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y S:+Y=0 Y=" "
  • LAST EDITED:  JUL 13, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length and numeric.
  • DESCRIPTION:  
    The code which identifies the physician's most recent principal employment before joining the VA.
4300 MONTH REPORTING FOR DUTY GECOPHY4A;14 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;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y S:+Y=0 Y=" "
  • LAST EDITED:  JUL 13, 1990
  • DESCRIPTION:  
    The numerical equivalent of the month when the physician is scheduled to report for duty.
4301 ID (PART-4) GECOPHY4A;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>8)!(X<8)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  JUL 13, 1990
  • HELP-PROMPT:  Type a Number between 8 and 8, 0 Decimal Digits
  • DESCRIPTION:  
    Indicates the data which follows will be related to FTEE ceiling.
4302 FTEE (PART-4) GECOPHY4A;16 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999.99)!(X<0)!(X?.E1"."3N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",2)=$P(Y,".",2)_$E("00",$L($P(Y,".",2))+1,2),$P(Y,".",1)=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
  • LAST EDITED:  JUL 09, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.99, 2 Decimal Digits
  • DESCRIPTION:  
    The total ceiling for full-time equivalent physician employees that was available at the beginning of the reporting quarter.
4303 POSITIVE ADJUSTMENTS GECOPHY4A;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.99)!(X<0)!(X?.E1"."3N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",2)=$P(Y,".",2)_$E("00",$L($P(Y,".",2))+1,2),$P(Y,".",1)=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2) S:+Y=0 Y=" "
  • LAST EDITED:  JUL 11, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.99, 2 Decimal Digits
  • DESCRIPTION:  
    Any net increase in the FTEE for physicians since the beginning of the quarter. Only the amount of the increase is to be entered.
4304 NEGATIVE ADJUSTMENTS GECOPHY4A;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.99)!(X<0)!(X?.E1"."3N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",2)=$P(Y,".",2)_$E("00",$L($P(Y,".",2))+1,2),$P(Y,".",1)=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2) S:+Y=0 Y=" "
  • LAST EDITED:  JUL 11, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.99, 2 Decimal Digits
  • DESCRIPTION:  
    Any net decrease in the FTEE for physicians since the beginning of the quarter. Only the amount of the decrease is to be entered.
4304.9 FWS PARAMETERS (COLUMNS 1-9) GECOWGE4C;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",$L(Y)+1,9)
  • LAST EDITED:  SEP 24, 1990
  • HELP-PROMPT:  Answer must be 1-9 characters in length.
4304.91 FWS PARAMETERS (COLUMNS 10-19) GECOWGE4C;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",$L(Y)+1,10)
  • LAST EDITED:  SEP 24, 1990
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
4304.92 FWS PARAMETERS (COLUMNS 20-29) GECOWGE4C;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",$L(Y)+1,10)
  • LAST EDITED:  SEP 24, 1990
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
4304.93 FWS PARAMETERS (COLUMNS 30-39) GECOWGE4C;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",$L(Y)+1,10)
  • LAST EDITED:  SEP 24, 1990
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
4304.94 FWS PARAMETERS (COLUMNS 40-49) GECOWGE4C;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",$L(Y)+1,10)
  • LAST EDITED:  SEP 24, 1990
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
4304.95 FWS PARAMETERS (COLUMNS 50-59) GECOWGE4C;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",$L(Y)+1,10)
  • LAST EDITED:  SEP 24, 1990
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
4304.96 FWS PARAMETERS (COLUMNS 60-69) GECOWGE4C;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",$L(Y)+1,10)
  • LAST EDITED:  SEP 24, 1990
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
4304.97 FWS PARAMETERS (COLUMNS 70-78) GECOWGE4C;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",$L(Y)+1,9)
  • LAST EDITED:  SEP 24, 1990
  • HELP-PROMPT:  Answer must be 1-9 characters in length.
4304.98 FWS PARAMETERS (COLUMN 79) GECOWGE4C;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  SEP 24, 1990
  • HELP-PROMPT:  Answer must be 1 character in length.
4304.99 FWS PARAMETERS (COLUMN 80) GECOWGE4C;10 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  SEP 24, 1990
  • HELP-PROMPT:  Answer must be 1 character in length.
4305 AREA CODE GECOWGE4;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  SEP 24, 1990
  • HELP-PROMPT:  Answer must be 1-3 characters in length and numeric.
  • DESCRIPTION:  
    The wage survey area code as assigned by the Bureau of Labor Statistics.
4306 ESTABLISHMENT CODE GECOWGE4;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  SEP 24, 1990
  • HELP-PROMPT:  Answer must be 1-3 characters in length and numeric.
  • DESCRIPTION:  
    The numeric code for the business establishment as supplied by the Bureau of Labor Statistics.
4307 STATUS GECOWGE4;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'("P"[X) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  JUL 12, 1990
  • HELP-PROMPT:  Enter the letter 'P'.
  • DESCRIPTION:  
    The status of the business establishment as a candidiate in the survey. It will always be the letter "P" (i.e., Prime).
4308 SIC CODE GECOWGE4;4 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4)!'(X?4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 13, 1990
  • HELP-PROMPT:  Answer must be 4 digits in length.
  • DESCRIPTION:  
    The Standard Industrial Classification Code assigned to the business establishment by the Bureau of Labor Statistics.
4309 WEIGHT GECOWGE4;5 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,2)_Y
  • LAST EDITED:  SEP 24, 1990
  • HELP-PROMPT:  Answer must be 1-2 characters in length numeric.
  • DESCRIPTION:  
    The survey weight of the business establishment as assigned by the Bureau of Labor Statistics.
4310 TOTAL NUMBER OF EMPLOYEES GECOWGE4;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,6)_Y
  • LAST EDITED:  JUL 12, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of employees of the business establishment.
4311 PREVIOUS PARTICIPATION GECOWGE4;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'("*"[X) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=" "_$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  JUL 12, 1990
  • HELP-PROMPT:  Enter '*' (asterisk) if the establishment participated in the most recent survey.
  • DESCRIPTION:  
    If the business establishment participated in the most recent survey, then enter an '*' (asterisk) in this field.
4312 ESTABLISHMENT NAME GECOWGE4;8 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>32!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",$L(Y)+1,32)
  • LAST EDITED:  JUL 11, 1990
  • HELP-PROMPT:  Answer must be 1-32 characters in length.
  • DESCRIPTION:  
    The name of the business establishment.
4313 NON-PARTICIPATION CODE GECOWGE4;9 SET
  • '-50' FOR LESS THAN 50 EMPLOYEES;
  • 'WSC' FOR WRONG SIC CODE;
  • 'CMB' FOR COMBINED WITH OTHER ENTRY;
  • 'COS' FOR ON STRIKE;
  • 'DNU' FOR DATA NOT USABLE;
  • 'DUP' FOR DUPLICATE;
  • 'OOA' FOR OUT OF SURVEY AREA;
  • 'OOB' FOR OUT OF BUSINESS;
  • 'REF' FOR REFUSAL;
  • 'UNL' FOR UNABLE TO LOCATE;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,3)_Y_" "
  • LAST EDITED:  OCT 10, 1990
  • DESCRIPTION:  
    The reason why the business establishment did not participate in the survey.
4313.5 FORM ID GECOWGE4;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  SEP 24, 1990
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    The character which identifies the code sheet (e.g., '1' for the Establishment Information Form).
4314 TYPE OF SURVEY GECOWGE4A;1 SET
************************REQUIRED FIELD************************
  • '0' FOR FULL SCALE;
  • '1' FOR FIRST WAGE CHANGE;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  JUL 12, 1990
  • DESCRIPTION:  
    Whether the data input is from a Full Scale or Wage Change Survey.
4315 OVERTIME DAILY RATE GECOWGE4A;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>2)!(X<1.3)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,1)_$P(Y,".",1),$P(Y,".",2)=$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 0" Y=" "
  • LAST EDITED:  OCT 10, 1990
  • HELP-PROMPT:  Type a Number between 1.3 and 2, 1 Decimal Digit
  • DESCRIPTION:  
    The percentage rate the business establishment pays its employees for overtime hours worked beyond the regular daily work shift.
4316 OVERTIME DAILY HOURS GECOWGE4A;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>12)!(X<7)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,2)_$P(Y,".",1),$P(Y,".",2)=$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 0" Y=" "
  • LAST EDITED:  OCT 10, 1990
  • HELP-PROMPT:  Type a Number between 7 and 12, 1 Decimal Digit
  • DESCRIPTION:  
    The number of hours in one day an employee of the business establishment must work before earning overtime pay.
4317 OVERTIME WEEKLY RATE GECOWGE4A;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>2)!(X<1.3)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,1)_$P(Y,".",1),$P(Y,".",2)=$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 0" Y=" "
  • LAST EDITED:  OCT 10, 1990
  • HELP-PROMPT:  Type a Number between 1.3 and 2, 1 Decimal Digit
  • DESCRIPTION:  
    The percentage rate the business establishment pays its employees for overtime hours worked beyond the regular workweek.
4318 OVERTIME WEEKLY HOURS GECOWGE4A;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>48)!(X<35)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,2)_$P(Y,".",1),$P(Y,".",2)=$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 0" Y=" "
  • LAST EDITED:  OCT 10, 1990
  • HELP-PROMPT:  Type a Number between 35 and 48, 1 Decimal Digit
  • DESCRIPTION:  
    The number of hours an employee of the business establishment must work in one week before earning overtime pay.
4319 SUNDAY RATE GECOWGE4A;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>3)!(X<1.5)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,1)_$P(Y,".",1),$P(Y,".",2)=$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 0" Y=" "
  • LAST EDITED:  OCT 10, 1990
  • HELP-PROMPT:  Type a Number between 1.5 and 3, 1 Decimal Digit
  • DESCRIPTION:  
    The percentage rate the business establishment pays its employees for working on Sunday.
4320 HOLIDAY RATE GECOWGE4A;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>3.5)!(X<1.5)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,1)_$P(Y,".",1),$P(Y,".",2)=$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 0" Y=" "
  • LAST EDITED:  OCT 10, 1990
  • HELP-PROMPT:  Type a Number between 1.5 and 3.5, 1 Decimal Digit
  • DESCRIPTION:  
    The percentage rate the business establishment pays its employees for working on holidays.
4321 NORMAL WORKWEEK GECOWGE4A;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>60)!(X<35)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,2)_$P(Y,".",1),$P(Y,".",2)=$P(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 0" Y=" "
  • LAST EDITED:  OCT 10, 1990
  • HELP-PROMPT:  Type a Number between 35 and 60, 1 Decimal Digit
  • DESCRIPTION:  
    The number of hours in a normal workweek as defined by the business establishment.
4322 NR TRD-CRFT-LBR(PLANT) WORKERS GECOWGE4A;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,6)_Y
  • LAST EDITED:  JUL 12, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The total number of trade, craft and labor workers on all shifts employed at the business establishment.
4323 MONTH OF RAISES GECOWGE4A;10 SET
  • '0' FOR NO SET MONTH;
  • '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;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,2)_Y
  • LAST EDITED:  JUL 12, 1990
  • DESCRIPTION:  
    The month raises normally take effect at the business establishment.
4324 COLLECTIVE BARGAINING CONTRACT GECOWGE4A;11 SET
  • 'Y' FOR YES, OBTAINED;
  • 'N' FOR NOT OBTAINED;
  • '0' FOR NO CONTRACT;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y_" "
  • LAST EDITED:  JUL 12, 1990
  • DESCRIPTION:  
    Whether or not the business establishment has a collective bargaining agreement and if a copy of the contract(s) was obtained by the wage data collection team.
4325 FIRST INCREASE GRANTED GECOWGE4A;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?.2N1"."2N.1"P") X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,2)_$P(Y,".",1),$P(Y,".",2)=$P(Y,".",2)_$E("000",$L($P(Y,".",2))+1,3),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 000" Y=" "
  • LAST EDITED:  OCT 10, 1990
  • HELP-PROMPT:  Examples: enter 25 cents as .25, one dollar as 1.00, 2 1/2 percent as 2.50P, 5 percent as 5.00P
  • DESCRIPTION:  
    The amount of the first wage increase granted.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
4326 REASON FOR INCREASE GRANTED-1 GECOWGE4A;13 SET
  • 'C' FOR COLA;
  • 'G' FOR GENERAL;
  • 'N' FOR NONE;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  JUL 12, 1990
  • DESCRIPTION:  
    The reason for the first increase granted.
4327 SECOND INCREASE GRANTED GECOWGE4A;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?.2N1"."2N.1"P") X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,2)_$P(Y,".",1),$P(Y,".",2)=$P(Y,".",2)_$E("000",$L($P(Y,".",2))+1,3),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 000" Y=" "
  • LAST EDITED:  OCT 10, 1990
  • HELP-PROMPT:  Examples: enter 25 cents as .25, one dollar as 1.00, 2 1/2 percent as 2.50P, 5 percent as 5.00P
  • DESCRIPTION:  
    The amount of the second increase granted.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
4327.5 REASON FOR INCREASE GRANTED-2 GECOWGE4A;16 SET
  • 'C' FOR COLA;
  • 'G' FOR GENERAL;
  • 'N' FOR NONE;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  JUL 12, 1990
  • DESCRIPTION:  
    The reason for the second increase granted.
4328 TOTAL INCREASES GRANTED GECOWGE4A;15 SET
  • '1' FOR ONE;
  • '2' FOR TWO;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  JUL 13, 1990
  • DESCRIPTION:  
    The total number of increases granted.
4329 JOB NUMBER GECOWGE4B;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  SEP 24, 1990
  • HELP-PROMPT:  Answer must be 1-3 characters in length and numeric.
  • DESCRIPTION:  
    The job number assigned by the Bureau of Labor Statistics to the occupation being surveyed.
4330 JOB MATCH-1 GECOWGE4B;2 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  JUL 12, 1990
  • DESCRIPTION:  
    The first job match entry for this code sheet.
4331 NUMBER OF EMPLOYEES-1 GECOWGE4B;3 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 12, 1990
  • HELP-PROMPT:  Type a Number between 1 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of employees at this particular straight time hourly rate.
4332 STRAIGHT TIME HOURLY RATE-1 GECOWGE4B;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>37.99)!(X<3.8)!(X?.E1"."4N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,2)_$P(Y,".",1),$P(Y,".",2)=$P(Y,".",2)_$E("000",$L($P(Y,".",2))+1,3),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 000" Y=" "
  • LAST EDITED:  OCT 10, 1990
  • HELP-PROMPT:  Type a Number between 3.8 and 37.99, 3 Decimal Digits
  • DESCRIPTION:  
    The straight time hourly rate paid for this job match.
4333 COLA GECOWGE4B;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>.999)!(X<.001)!(X?.E1"."4N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y="."_Y S Y=$P(Y,".",2)_$E("000",$L($P(Y,".",2))+1,3) S:Y="000" Y=" "
  • LAST EDITED:  OCT 10, 1990
  • HELP-PROMPT:  Type a Number between .001 and .999, 3 Decimal Digits
  • DESCRIPTION:  
    The amount of any cost-of-living-allowance expressed in cents per hour (e.g., 39 1/2 cents would be entered as .395 and 5 cents would be expressed as .05).
4334 BONUS PER HOUR GECOWGE4B;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>.999)!(X<.001)!(X?.E1"."4N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y="."_Y S Y=$P(Y,".",2)_$E("000",$L($P(Y,".",2))+1,3) S:Y="000" Y=" "
  • LAST EDITED:  OCT 10, 1990
  • HELP-PROMPT:  Type a Number between .001 and .999, 3 Decimal Digits
  • DESCRIPTION:  
    The amount of any bonus paid expressed in cents per hour (e.g., 39 1/2 cents would be entered as .395 and 5 cents would be entered as .05).
4335 NUMBER OF STEPS GECOWGE4B;7 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,2)_Y
  • LAST EDITED:  JUL 12, 1990
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    The number of discreet pay steps within the pay range for this occupation at the business establishment.
4336 MINIMUM JOB RATE GECOWGE4B;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>37.99)!(X<3.8)!(X?.E1"."4N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,2)_$P(Y,".",1),$P(Y,".",2)=$P(Y,".",2)_$E("000",$L($P(Y,".",2))+1,3),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 000" Y=" "
  • LAST EDITED:  OCT 10, 1990
  • HELP-PROMPT:  Type a Number between 3.8 and 37.99, 3 Decimal Digits
  • DESCRIPTION:  
    The minimum rate per hour the business establishment is paying for this occupation.
4337 MAXIMUM JOB RATE GECOWGE4B;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>37.99)!(X<3.8)!(X?.E1"."4N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,2)_$P(Y,".",1),$P(Y,".",2)=$P(Y,".",2)_$E("000",$L($P(Y,".",2))+1,3),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 000" Y=" "
  • LAST EDITED:  OCT 10, 1990
  • HELP-PROMPT:  Type a Number between 3.8 and 37.99, 3 Decimal Digits
  • DESCRIPTION:  
    The maximum rate per hour the business establishment is paying for this occupation.
4338 REASON FOR RATE CHANGE GECOWGE4B;10 SET
  • 'C' FOR COMBINATION;
  • 'L' FOR LONGEVITY;
  • 'M' FOR MERIT;
  • 'N' FOR NONE;
  • 'X' FOR OTHER;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  JUL 12, 1990
  • DESCRIPTION:  
    The reason for the differences between pay rates.
4339 INCENTIVE RATE GECOWGE4B;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>37.99)!(X<3.8)!(X?.E1"."4N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,2)_$P(Y,".",1),$P(Y,".",2)=$P(Y,".",2)_$E("000",$L($P(Y,".",2))+1,3),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 000" Y=" "
  • LAST EDITED:  OCT 10, 1990
  • HELP-PROMPT:  Type a Number between 3.8 and 37.99, 3 Decimal Digits
  • DESCRIPTION:  
    The amount of any incentive rate the employee(s) earned at this occupation.
4340 GUARANTEED MINIMUM GECOWGE4B;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>37.99)!(X<3.8)!(X?.E1"."4N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,2)_$P(Y,".",1),$P(Y,".",2)=$P(Y,".",2)_$E("000",$L($P(Y,".",2))+1,3),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 000" Y=" " S Y=Y_" "
  • LAST EDITED:  OCT 10, 1990
  • HELP-PROMPT:  Type a Number between 3.8 and 37.99, 3 Decimal Digits
  • DESCRIPTION:  
    The guaranteed minimum rate for incentive-paid employees in this occupation.
4341 MULTIPLE JOB MATCH GECOWGE4B;13 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  JUL 13, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9, 0 Decimal Digits
  • DESCRIPTION:  
    A number from 0-9 used to differentiate multiple occupations at the business establishment which match this particular survey job.
4342 FIRST INCREASE PENDING GECOWGE4B;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?.2N1"."2N.1"P") X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,2)_$P(Y,".",1),$P(Y,".",2)=$P(Y,".",2)_$E("000",$L($P(Y,".",2))+1,3),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 000" Y=" "
  • LAST EDITED:  OCT 10, 1990
  • HELP-PROMPT:  Examples: enter 25 cents as .25, one dollar as 1.00, 2 1/2 percent as 2.50P, 5 percent as 5.00P
  • DESCRIPTION:  
    The amount of the first increase pending payment.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
4342.5 REASON FOR PENDING INCREASE-1 GECOWGE4A;17 SET
  • 'C' FOR COLA;
  • 'G' FOR GENERAL;
  • 'N' FOR NONE;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  JUL 12, 1990
  • DESCRIPTION:  
    The reason for the first increase pending.
4343 SECOND INCREASE PENDING GECOWGE4B;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?.2N1"."2N.1"P") X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,2)_$P(Y,".",1),$P(Y,".",2)=$P(Y,".",2)_$E("000",$L($P(Y,".",2))+1,3),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 000" Y=" "
  • LAST EDITED:  OCT 10, 1990
  • HELP-PROMPT:  Examples: enter 25 cents as .25, one dollar as 1.00, 2 1/2 percent as 2.50P, 5 percent as 5.00P
  • DESCRIPTION:  
    The amount of the second increase pending payment.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
4344 REASON FOR PENDING INCREASE-2 GECOWGE4A;18 SET
  • 'C' FOR COLA;
  • 'G' FOR GENERAL;
  • 'N' FOR NONE;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  JUL 12, 1990
  • DESCRIPTION:  
    The reason for the second pending increase.
4345 TOTAL INCREASES PENDING GECOWGE4A;19 SET
  • '1' FOR ONE;
  • '2' FOR TWO;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y_" "
  • LAST EDITED:  OCT 10, 1990
  • DESCRIPTION:  
    The total number of increases pending.
4346 JOB MATCH-2 GECOWGE4B;16 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  JUL 12, 1990
  • DESCRIPTION:  
    The second job match for this code sheet.
4346.1 NUMBER OF EMPLOYEES-2 GECOWGE4B;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 12, 1990
  • HELP-PROMPT:  Type a Number between 1 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of employees at this particular straight time hourly rate.
4346.2 STRAIGHT TIME HOURLY RATE-2 GECOWGE4B;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>37.99)!(X<3.8)!(X?.E1"."4N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,2)_$P(Y,".",1),$P(Y,".",2)=$P(Y,".",2)_$E("000",$L($P(Y,".",2))+1,3),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 000" Y=" "
  • LAST EDITED:  OCT 10, 1990
  • HELP-PROMPT:  Type a Number between 3.8 and 37.99, 3 Decimal Digits
  • DESCRIPTION:  
    The straight time hourly rate paid for this job match.
4346.3 JOB MATCH-3 GECOWGE4B;19 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  JUL 12, 1990
  • DESCRIPTION:  
    The third job match entry for this code sheet.
4346.4 NUMBER OF EMPLOYEES-3 GECOWGE4B;20 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 12, 1990
  • HELP-PROMPT:  Type a Number between 1 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of employees at this particular straight time hourly rate.
4346.5 STRAIGHT TIME HOURLY RATE-3 GECOWGE4B;21 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>37.99)!(X<3.8)!(X?.E1"."4N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,2)_$P(Y,".",1),$P(Y,".",2)=$P(Y,".",2)_$E("000",$L($P(Y,".",2))+1,3),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 000" Y=" "
  • LAST EDITED:  OCT 10, 1990
  • HELP-PROMPT:  Type a Number between 3.8 and 37.99, 3 Decimal Digits
  • DESCRIPTION:  
    The straight time hourly rate paid for this job match.
4346.6 JOB MATCH-4 GECOWGE4B;22 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  JUL 12, 1990
  • DESCRIPTION:  
    The fourth job match entry for this code sheet.
4346.7 NUMBER OF EMPLOYEES-4 GECOWGE4B;23 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 12, 1990
  • HELP-PROMPT:  Type a Number between 1 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of employees at this particular straight time hourly rate.
4346.8 STRAIGHT TIME HOURLY RATE-4 GECOWGE4B;24 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>37.99)!(X<3.8)!(X?.E1"."4N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,2)_$P(Y,".",1),$P(Y,".",2)=$P(Y,".",2)_$E("000",$L($P(Y,".",2))+1,3),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 000" Y=" "
  • LAST EDITED:  OCT 10, 1990
  • HELP-PROMPT:  Type a Number between 3.8 and 37.99, 3 Decimal Digits
  • DESCRIPTION:  
    The straight time hourly rate paid for this job match.
4346.9 JOB MATCH-5 GECOWGE4B;25 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  JUL 12, 1990
  • DESCRIPTION:  
    The fifth job match entry for this code sheet.
4347 NUMBER OF EMPLOYEES-5 GECOWGE4B;26 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 12, 1990
  • HELP-PROMPT:  Type a Number between 1 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of employees at this particular straight time hourly rate.
4347.1 STRAIGHT TIME HOURLY RATE-5 GECOWGE4B;27 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>37.99)!(X<3.8)!(X?.E1"."4N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,2)_$P(Y,".",1),$P(Y,".",2)=$P(Y,".",2)_$E("000",$L($P(Y,".",2))+1,3),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 000" Y=" "
  • LAST EDITED:  OCT 10, 1990
  • HELP-PROMPT:  Type a Number between 3.8 and 37.99, 3 Decimal Digits
  • DESCRIPTION:  
    The straight time hourly rate paid for this job match.
4347.2 JOB MATCH-6 GECOWGE4B;28 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  JUL 12, 1990
  • DESCRIPTION:  
    The sixth job match entry for this code sheet.
4347.3 NUMBER OF EMPLOYEES-6 GECOWGE4B;29 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,4)_Y
  • LAST EDITED:  JUL 12, 1990
  • HELP-PROMPT:  Type a Number between 1 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of employees at this particular straight time hourly rate.
4347.4 STRAIGHT TIME HOURLY RATE-6 GECOWGE4B;30 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>37.99)!(X<3.8)!(X?.E1"."4N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,2)_$P(Y,".",1),$P(Y,".",2)=$P(Y,".",2)_$E("000",$L($P(Y,".",2))+1,3),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 000" Y=" " S Y=Y_" "
  • LAST EDITED:  OCT 10, 1990
  • HELP-PROMPT:  Type a Number between 3.8 and 37.99, 3 Decimal Digits
  • DESCRIPTION:  
    The straight time hourly rate paid for this job match.
4347.5 CONTINUATION COUNT GECOWGE4B;31 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X?1N!(X?1" ")) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
  • LAST EDITED:  SEP 24, 1990
  • HELP-PROMPT:  Enter '0' (zero) for the first Continuation Form used for this particular job, '1' for the second, '2' for the third and so on.
  • DESCRIPTION:  
    This field contains the Continuation Form count.
4348 FACILITY NUMBER GECONSY4;18 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3)!'(X?3N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y="/"_Y
  • LAST EDITED:  JUL 11, 1990
  • HELP-PROMPT:  Answer must be 3 characters in length and numeric.
  • DESCRIPTION:  
    The facility's three digit identification number.
4349 REPORT PERIOD GECONSY4;19 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>4)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y="/"_$E("00",$L(Y)+1,2)_Y
  • LAST EDITED:  JUL 06, 1990
  • HELP-PROMPT:  Type a Number between 1 and 4, 0 Decimal Digits
  • DESCRIPTION:  
    The reporting quarter (e.g., "1" = first quarter, "2" = second, etc).
4350 PERIOD ENDING GECONSY4;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X Q:'$D(X) S X=$E(X,4,7)_$E(X,2,3)
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y="/"_Y
  • LAST EDITED:  JUL 06, 1998
  • DESCRIPTION:  
    The date the reporting period ended.
4351 SERVICE GECONSY4;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y="/"_Y
  • LAST EDITED:  JUL 06, 1990
  • HELP-PROMPT:  Answer must be 4 characters in length.
  • DESCRIPTION:  
    The abbreviation for the Service.
4352 SECTION GECONSY4;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5)!'(X?5N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y="/"_Y
  • LAST EDITED:  JUL 13, 1990
  • HELP-PROMPT:  Answer must be 5 characters in length and numeric.
  • DESCRIPTION:  
    The numeric code which identifies the Section number.
4353 COST CENTER GECONSY4;4 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4)!'(X?4N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y="/"_Y
  • LAST EDITED:  JUL 06, 1990
  • HELP-PROMPT:  Answer must be 4 characters in length and numeric.
  • DESCRIPTION:  
    The 4 digit code which identifies the Cost Center.
4354 PAGE NUMBER GECONSY4;5 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y="/"_$E("00",$L(Y)+1,2)_Y_";"
  • LAST EDITED:  JUL 06, 1990
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    The code sheet page number.
4355 502 - EMPLOYEE SEPARATIONS GECONSY4;6 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y="/502/"_Y
  • LAST EDITED:  JUL 06, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  The number of separation actions (full-time, part-time, intermittent, permanent and temporary) that represent losses to the facility. Do not include Leave Without Pay (LWOP) actions, fee basis consultants, attendings, and
    others who are on fee-basis contracts or Without Compensation (WOCs).
4356 509 - EMPLOYEE HEAD COUNT GECONSY4;7 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y="/509/"_Y_";"
  • LAST EDITED:  JUL 06, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  The total number of employees (full-time, part-time, intermittent, temporary and permanent) on the rolls as of the end of the report period. Include all employees for whom the Personnel Service is providing personnel
    services. Include employees of a District Office, a Canteen Service, a Research Service, an Outpatient Clinic, a National Cemetery, or any other unit serviced. Do not include fee basis consultants, attendings, and others
    that are on fee-basis contracts or Without Compensation (WOC).
4357 100 - TOTAL HOURS WORKED GECONSY4;8 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y="/100/"_Y
  • LAST EDITED:  JUL 06, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999.9, 1 Decimal Digit
  • DESCRIPTION:  The number of hours actually worked performing Personnel Service activities i.e., hours spent on the job. These hours should include the normal duty hours and overtime/compensatory hours worked by employees, work-study
    students, Without Compensation (WOC) appointed personnel, etc.
4358 200 - TOTAL PAID HOURS GECONSY4;9 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y="/200/"_Y_";"
  • LAST EDITED:  JUL 06, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The number of man-hours paid during the report period for all Personnel Service employees. Include hours for authorized paid overtime, leave and holidays.
4359 205 - PAID OVERTIME HOURS GECONSY4;10 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y="/205/"_Y
  • LAST EDITED:  JUL 06, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The paid hours worked by Personnel Service employees in excess of eight hours in a day or forty hours in an administrative workweek.
4360 215 - COP HOURS GECONSY4;11 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y="/215/"_Y_";"
  • LAST EDITED:  JUL 06, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The total number of Continuation Of Pay (COP) hours due to job-related injuries for all employees whose paid hours are charged to Personnel Service.
4361 300 - TOTAL UNPAID LWOP & AWOL GECONSY4;12 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y="/300/"_Y
  • LAST EDITED:  JUL 06, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The total number of hours officially recorded as Leave Without Pay (LWOP) or Absence Without Leave (AWOL) for all employees assigned to Personnel Service.
4362 400 - TOTAL FUNDED FTEE GECONSY4;13 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>9999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y="/400/"_Y_";"
  • LAST EDITED:  JUL 06, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999.9, 1 Decimal Digit
  • DESCRIPTION:  The full-time employee equivalents of Personnel Service for the total number of positions that are filled, plus any additional positions which funds are available for recruitment and placement as of the end of the report
    period.
4363 405 - MAN-HOURS BORROWED GECONSY4;14 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>9999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y="/405/"_Y
  • LAST EDITED:  JUL 06, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The hours spent performing Personnel Service activities by employees assigned to another Service.
4364 410 - MAN-HOURS LOANED GECONSY4;15 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>9999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y="/410/"_Y_";"
  • LAST EDITED:  JUL 06, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The hours spent by employees of Personnel Service performing activities of another Service.
4365 701 - VOLUNTEER HOURS WORKED GECONSY4;16 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>9999.9)!(X<0)!(X?.E1"."2N.N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y="/701/"_Y_";"
  • LAST EDITED:  JUL 06, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999.9, 1 Decimal Digit
  • DESCRIPTION:  
    The hours devoted to activities of Personnel Service by formal volunteers.
4366 SYSTEM ID GECONSY4;17 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$E(" ",$L(Y)+1,3)_Y
  • LAST EDITED:  JUL 13, 1990
  • HELP-PROMPT:  Answer must be 3 characters in length.
  • DESCRIPTION:  
    The three character system identification code for this report.
5000 CLINIC YSDDC5;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?1A1N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S(Y'?1A1N:" ",1:Y)
  • LAST EDITED:  APR 05, 1991
  • HELP-PROMPT:  Answer must be 2 characters in length. First character alphabetic; Second character numeric.
  • DESCRIPTION:  
    This is the two-character designation of the drug dependency clinic. The first character must be alphabetic. The second character must be numeric.
5001 PATIENT IDENTIFICATION NUMBER YSDDC5;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<9)!'(X?1"P"9N!(X?1" "9N)!(X?9N)) X
  • OUTPUT TRANSFORM:  I $D(GECSOT),($L(Y)<10) S Y=" "_Y
  • LAST EDITED:  APR 01, 1991
  • HELP-PROMPT:  Answer must be 9-10 characters in length.
  • DESCRIPTION:  This is the Patient Identification Number (SSN or Pseudo SSN) as it appears on the active patient census. NOTE: IF THE PATIENT HAS NO SSN OR REFUSES TO DIVULGE IT, A PSEUDO SSN CAN BE GENERATED AS FOLLOWS:
    1. Enter a "P" as the first character to indicate a Pseudo SSN.
    2. The next three characters will correspond to the patient's
    initials in first name, middle initial, last name order using
    the numeric code from the table below:
    A,B,C = 1 J,K,L = 4 S,T,U = 7
    D,E,F = 2 M,N,O = 5 V,W,X = 8
    G,H,I = 3 P,Q,R = 6 Y,Z = 9
    No MI = 0
    The remaining six digits will correspond to the numeric date
    of birth, in the format MMDDYY (e.g., April 1, 1949 would be
    040149), WITHOUT delimiters (e.g., "/" or "-").
    3. As a complete example, a Pseudo SSN for John A. Doe, born on
    April 1, 1949 would be constructed as: P412040149.
5002 PATIENT LAST NAME YSDDC5;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>18!($L(X)<1)!'(X?1.18AP) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",$L(Y)+1,18)
  • LAST EDITED:  APR 01, 1991
  • HELP-PROMPT:  Answer must be 1-18 characters in length.
  • DESCRIPTION:  
    This is the patients last name, as it appears on the active patient census.
5003 PATIENT FIRST NAME YSDDC5;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1)!'(X?1.10AP) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",$L(Y)+1,10)
  • LAST EDITED:  JUN 05, 1991
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
  • DESCRIPTION:  
    This is the patient's first name, as it appears on the active patient census.
5004 PATIENT MI YSDDC5;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X?1A) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:$L(Y)<1 Y=" "
  • LAST EDITED:  MAR 28, 1991
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    This is the patient's middle initial, if present, as it appears on the active patient census.
5005 ETHNIC BACKGROUND CODE (EBC) YSDDC5;6 SET
  • '01' FOR White;
  • '02' FOR Black;
  • '03' FOR Native American;
  • '04' FOR Eskimo - Alaskan Native;
  • '05' FOR Asian/Pacific Islander;
  • '06' FOR Mexican;
  • '07' FOR Puerto Rican;
  • '08' FOR Cuban;
  • '09' FOR Hispanic (NES);
  • '99' FOR Unspecified;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S(Y="":" ",Y'?1.2N:"99",$L(Y)=1:"0"_Y,1:Y)
  • LAST EDITED:  JUN 04, 1991
  • DESCRIPTION:  This is the two digit numeric code for the patient's ethnic background:
    01 = White (not of Hispanic origin)
    02 = Black (not of Hispanic origin)
    03 = Native American (Indian)
    04 = Alaskan Native (Aleutian, Eskimo Indian)
    05 = Asian or Pacific Islander
    06 = Hispanic - Mexican origin
    07 = Hispanic - Puerto Rican origin
    08 = Hispanic - Cuban origin
    09 = Hispanic - other than above
    99 = Unspecified
5006 PATIENT SEX YSDDC5;7 SET
  • 'M' FOR male;
  • 'F' FOR female;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S(Y="":" ",1:Y)
  • LAST EDITED:  MAR 27, 1991
  • DESCRIPTION:  
    This is the patient's gender ("M" if male, "F" if female).
5007 PATIENT DATE OF BIRTH YSDDC5;8 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • OUTPUT TRANSFORM:  S %=Y D DD^%DT I $D(GECSOT) S Y=%,Y=$S(+Y'>0:" ",1:$E(Y,4,5)_$E(Y,6,7)_$E(Y,2,3))
  • LAST EDITED:  JUL 07, 1998
5008 COUNSELOR ID NUMBER YSDDC5;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S(Y'?1.2N:" ",$L(Y)=1:"0"_Y,1:Y)
  • LAST EDITED:  APR 03, 1991
  • HELP-PROMPT:  Enter counselor's ID #, or 00 if counselor not assigned. Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    This is the two-digit number assigned to the counselor to which the patient has been assigned at your station.
5009 ACTION CODE YSDDC5;10 SET
************************REQUIRED FIELD************************
  • 'A' FOR admission;
  • 'C' FOR change patient information;
  • 'D' FOR discharge;

  • LAST EDITED:  MAR 29, 1991
  • DESCRIPTION:  
    This is the alphabetic code for the action which this transaction describes.
5010 TYPE CODE YSDDC5;11 SET
************************REQUIRED FIELD************************
  • '0' FOR Admission - drug abuse Tx;
  • '1' FOR Completed Tx or Type 1 change;
  • '2' FOR Transfer or Type 2 change;
  • '3' FOR Irregular or Type 3 change;
  • '4' FOR Non-compliance;
  • '5' FOR Jail (incarceration);
  • '6' FOR Death;
  • '9' FOR Admission - other;

  • LAST EDITED:  JUN 04, 1991
  • DESCRIPTION:  This is the one-digit numeric code which describes the action as follows:
    If the ACTION is "A" for Admission the TYPE can be:
    "0" = drug abuse treatment
    "9" = for any other purpose
    If the ACTION is "C" for Change Patient Information the TYPE can be:
    "1" = type 1 change (Pt. Name, EBC, Sex, DOB or Counselor)
    "2" = type 2 change (change of Modality Admitted to code)
    "3" = type 3 change (modify error in previous transmission)
    If the ACTION is "D" for Discharge the TYPE can be:
    "1" = treatment complete
    "2" = transfer
    "3" = irregular
    "4" = non-compliance
    "5" = incarceration
    "6" = death
5011 ACTION EFFECTIVE DATE YSDDC5;12 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • OUTPUT TRANSFORM:  S %=Y D DD^%DT I $D(GECSOT) S Y=%,Y=$E(Y,4,5)_$E(Y,6,7)_$E(Y,2,3)
  • LAST EDITED:  JUL 06, 1998
  • HELP-PROMPT:  Enter the date on which patient was accepted for treatment.
  • DESCRIPTION:  
    This is the date on which the action described by this transaction will be effective (usually TODAY).
5012 TREATMENT MODALITY YSDDC5;13 SET
  • 'A' FOR detoxification treatment - methadone;
  • 'B' FOR maintenance treatment - methadone;
  • 'C' FOR Drug free treatment;
  • 'Z' FOR None of the above;

  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S(Y="":" ",1:Y)
  • LAST EDITED:  MAR 28, 1991
  • DESCRIPTION:  
    This is the treatment modality to which the patient is admitted. It is MANDATORY for all ADMISSION type transactions, and can only be modified by a change type 2 transaction.
5013 TRANSACTION CODE YSDDC5;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?1.2N) X
  • LAST EDITED:  MAR 28, 1991
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  This is the code for the transaction being made (e.g., 01 for Patient Information Sheet - form 5356, 02 for Patient Dosage Schedule - form 5357, etc.). It is always appended to the end of the record automatically, and is
    transparent to the user.
5014 DDCSS DATA CODE YSDDC5;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'="@" Y="@"
  • LAST EDITED:  MAR 28, 1991
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    This is the end of record indicator "@". It is always appended to the record automatically, and is transparent to the user.
5015 END OF DATA INDICATOR YSDDC5;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S:Y'="$" Y="$"
  • LAST EDITED:  MAR 28, 1991
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    This is the end of data indicator "$". It is always appended to the end of a given transaction automatically, and is transparent to the user.
5017 EFFECTIVE DATE '01' SEQUENCE YSDDC5;18 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • OUTPUT TRANSFORM:  S %=Y D DD^%DT I $D(GECSOT) S Y=%,Y=$E(Y,4,5)_$E(Y,6,7)_$E(Y,2,3)
  • LAST EDITED:  JUL 06, 1998
  • HELP-PROMPT:  Enter the effective date of the first sequence of this series of medications.
  • DESCRIPTION:  
    This is the effective date of the first dosing sequence for the patient.
5018 PICKUP CODE YSDDC5;19 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?1N1U!(X?1N1P)) X
  • LAST EDITED:  MAY 29, 1991
  • HELP-PROMPT:  Enter pickup code, "??" for brief description or "???" for detailed help.
  • DESCRIPTION:  
    This is the two character code for the patient's medication pickup schedule.
  • EXECUTABLE HELP:  I X="???" S XQH="GECQ PICKUP CODES" D EN^XQH K XQH
5019 MEDICATION SEQUENCE YSDDC5;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S(Y'?1.2N:" ",$L(Y)=1:"0"_Y,1:Y)
  • LAST EDITED:  APR 03, 1991
  • HELP-PROMPT:  Enter as coded. (e.g., 1 or 01 for first dosing sequence, etc.).
  • DESCRIPTION:  
    This is the number of the dosing sequence for the patient (e.g., enter "1" or "01" to indicate first dosing, etc.).
5020 DOSAGE YSDDC5;21 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N)!(X<0)!((X>150)&(X'=888)) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S(Y'?1.3N:" ",$L(Y)=1:"00"_Y,$L(Y)=2:"0"_Y,1:Y)
  • LAST EDITED:  APR 03, 1991
  • HELP-PROMPT:  Enter dosage strength in milligrams from 1 to 150. Enter 0 if no medication today. Enter "888" for placebos.
  • DESCRIPTION:  
    This is the dosage strength in milligrams (from 1 to 150) of the medication which the patient is to recieve. If no medication is to be given today, then enter "0" or "000". Placebo dosings are entered as "888".
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
5021 DOSAGE DURATION YSDDC5;22 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S(Y'?1.2N:" ",$L(Y)=1:"0"_Y,1:Y)
  • LAST EDITED:  APR 03, 1991
  • HELP-PROMPT:  Enter number of days patient will recieve this dosage level: count today as day 1. Enter "99" if patient is to maintained indefinitely at this level.
  • DESCRIPTION:  This is the number of days the patient will be recieving the indicated dosage level. Count today as day 1. If the patient is to be maintained indefinitely at this dosage, enter "99". IF THE DURATION IS ENTERED AS "99"
    FOR THE FIRST DOSAGE SEQUENCE, THEN DO NOT MAKE ANY FURTHER CHANGES.
5022 HCF TEXT CODE YSDDC5;23 SET
************************REQUIRED FIELD************************
  • '1' FOR CLINIC NAME;
  • '2' FOR STREET ADDRESS;
  • '3' FOR CITY;
  • '4' FOR STATE;
  • '5' FOR ZIP CODE;
  • '6' FOR CLINIC TELEPHONE NUMBER;
  • '7' FOR PRESCRIBING PHYSICIAN NAMES;
  • '8' FOR HCF NAME;

  • LAST EDITED:  APR 05, 1991
  • DESCRIPTION:  
    Enter the code for the data element which you wish to change with this transaction.
5023 HCF SPACE YSDDC5;24 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X?1" ") X
  • LAST EDITED:  MAR 27, 1991
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    This is simply a blank space which transparently pads each transaction for the HCF Information Form (5333).
5024 HCF TEXT YSDDC5;25 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=Y_$E(" ",$L(Y)+1,25)
  • LAST EDITED:  MAR 28, 1991
  • HELP-PROMPT:  Answer must be 1-25 characters in length.
  • DESCRIPTION:  
    Enter the appropriate textual changes for the data element indicated by the TEXT CODE entered above.
5025 MEDICATION FOR WEEK OF YSDDC5;26 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • OUTPUT TRANSFORM:  S %=Y D DD^%DT I $D(GECSOT) S Y=%,Y=$E(Y,4,5)_$E(Y,6,7)_$E(Y,2,3)
  • LAST EDITED:  JUL 06, 1998
  • HELP-PROMPT:  Upper left of form. Date of first day of week.
  • DESCRIPTION:  
    This is the date of the first day of the week described by the present transaction.
5026 DOSAGE CODE-MONDAY YSDDC5;27 SET
  • 'P' FOR picked up & ingested;
  • 'T' FOR taken home;
  • 'A' FOR authorized absence;
  • 'D' FOR death;
  • 'H' FOR hospitalized;
  • 'J' FOR jail;
  • 'U' FOR unauthorized absence;
  • 'W' FOR withheld;
  • 'X' FOR discharged;

  • OUTPUT TRANSFORM:  I $D(GECSOT),(Y']"") S Y=" "
  • LAST EDITED:  JUN 04, 1991
  • DESCRIPTION:  
    This is the code describing the circumstances under which the medication was dispensed or not. if the patient wasn't scheduled for medication on Monday.
5027 DOSAGE-MONDAY YSDDC5;28 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N!(X?1" ")) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S(Y'?1.3N:" ",$L(Y)=1:"00"_Y,$L(Y)=2:"0"_Y,1:Y)
  • LAST EDITED:  APR 03, 1991
  • HELP-PROMPT:  Enter the dosage dispensed, in milligrams. Otherwise enter blank.
  • DESCRIPTION:  
    This is the dosage dispensed to the patient in milligrams.
5028 DOSAGE CODE-TUESDAY YSDDC5;29 SET
  • 'P' FOR picked up & ingested;
  • 'T' FOR taken home;
  • 'A' FOR authorized absence;
  • 'D' FOR death;
  • 'H' FOR hospitalized;
  • 'J' FOR jail;
  • 'U' FOR unauthorized absence;
  • 'W' FOR withheld;
  • 'X' FOR discharged;

  • OUTPUT TRANSFORM:  I $D(GECSOT),(Y']"") S Y=" "
  • LAST EDITED:  JUN 04, 1991
  • DESCRIPTION:  
    This is the code describing the circumstances under which the medication was dispensed or not. if the patient wasn't scheduled for medication on Tuesday.
5029 DOSAGE-TUESDAY YSDDC5;30 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N!(X?1" ")) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S(Y'?1.3N:" ",$L(Y)=1:"00"_Y,$L(Y)=2:"0"_Y,1:Y)
  • LAST EDITED:  APR 03, 1991
  • HELP-PROMPT:  Enter the dosage dispensed, in milligrams. Otherwise enter blank.
  • DESCRIPTION:  
    This is the dosage dispensed to the patient in milligrams.
5030 DOSAGE CODE-WEDNESDAY YSDDC5;31 SET
  • 'P' FOR picked up & ingested;
  • 'T' FOR taken home;
  • 'A' FOR authorized absence;
  • 'D' FOR death;
  • 'H' FOR hospitalized;
  • 'J' FOR jail;
  • 'U' FOR unauthorized absence;
  • 'W' FOR withheld;
  • 'X' FOR discharged;

  • OUTPUT TRANSFORM:  I $D(GECSOT),(Y']"") S Y=" "
  • LAST EDITED:  JUN 04, 1991
  • DESCRIPTION:  
    This is the code describing the circumstances under which the medication was dispensed or not. if the patient wasn't scheduled for medication on Wednesday.
5031 DOSAGE-WEDNESDAY YSDDC5;32 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N!(X?1" ")) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S(Y'?1.3N:" ",$L(Y)=1:"00"_Y,$L(Y)=2:"0"_Y,1:Y)
  • LAST EDITED:  APR 03, 1991
  • HELP-PROMPT:  Enter the dosage dispensed, in milligrams. Otherwise enter blank.
  • DESCRIPTION:  
    This is the dosage dispensed to the patient in milligrams.
5032 DOSAGE CODE-THURSDAY YSDDC5;33 SET
  • 'P' FOR picked up & ingested;
  • 'T' FOR taken home;
  • 'A' FOR authorized absence;
  • 'D' FOR death;
  • 'H' FOR hospitalized;
  • 'J' FOR jail;
  • 'U' FOR unauthorized absence;
  • 'W' FOR withheld;
  • 'X' FOR discharged;

  • OUTPUT TRANSFORM:  I $D(GECSOT),(Y']"") S Y=" "
  • LAST EDITED:  JUN 04, 1991
  • DESCRIPTION:  
    This is the code describing the circumstances under which the medication was dispensed or not. if the patient wasn't scheduled for medication on Thursday.
5033 DOSAGE-THURSDAY YSDDC5;34 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N!(X?1" ")) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S(Y'?1.3N:" ",$L(Y)=1:"00"_Y,$L(Y)=2:"0"_Y,1:Y)
  • LAST EDITED:  APR 03, 1991
  • HELP-PROMPT:  Enter the dosage dispensed, in milligrams. Otherwise enter blank.
  • DESCRIPTION:  
    This is the dosage dispensed to the patient in milligrams.
5034 DOSAGE CODE-FRIDAY YSDDC5;35 SET
  • 'P' FOR picked up & ingested;
  • 'T' FOR taken home;
  • 'A' FOR authorized absence;
  • 'D' FOR death;
  • 'H' FOR hospital;
  • 'J' FOR jail;
  • 'U' FOR unauthorized absence;
  • 'W' FOR withheld;
  • 'X' FOR discharged;

  • OUTPUT TRANSFORM:  I $D(GECSOT),(Y']"") S Y=" "
  • LAST EDITED:  JUN 04, 1991
  • DESCRIPTION:  
    This is the code describing the circumstances under which the medication was dispensed or not. if the patient wasn't scheduled for medication on Friday.
5035 DOSAGE-FRIDAY YSDDC5;36 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N!(X?1" ")) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S(Y'?1.3N:" ",$L(Y)=1:"00"_Y,$L(Y)=2:"0"_Y,1:Y)
  • LAST EDITED:  APR 03, 1991
  • HELP-PROMPT:  Enter the dosage dispensed, in milligrams. Otherwise enter blank.
  • DESCRIPTION:  
    This is the dosage dispensed to the patient in milligrams.
5036 DOSAGE CODE-SATURDAY YSDDC5;37 SET
  • 'P' FOR picked up & ingested;
  • 'T' FOR taken home;
  • 'A' FOR authorized absence;
  • 'D' FOR death;
  • 'H' FOR hospitalized;
  • 'J' FOR jail;
  • 'U' FOR unauthorized absence;
  • 'W' FOR withheld;
  • 'X' FOR discharged;

  • OUTPUT TRANSFORM:  I $D(GECSOT),(Y']"") S Y=" "
  • LAST EDITED:  JUN 04, 1991
  • DESCRIPTION:  
    This is the code describing the circumstances under which the medication was dispensed or not. if the patient wasn't scheduled for medication on Saturday.
5037 DOSAGE-SATURDAY YSDDC5;38 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N!(X?1" ")) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S(Y'?1.3N:" ",$L(Y)=1:"00"_Y,$L(Y)=2:"0"_Y,1:Y)
  • LAST EDITED:  APR 03, 1991
  • HELP-PROMPT:  Enter the dosage dispensed, in milligrams. Otherwise enter blank.
  • DESCRIPTION:  
    This is the dosage dispensed to the patient in milligrams.
5038 DOSAGE CODE-SUNDAY YSDDC5;39 SET
  • 'P' FOR picked up & ingested;
  • 'T' FOR taken home;
  • 'A' FOR authorized absence;
  • 'D' FOR death;
  • 'H' FOR hospitalized;
  • 'J' FOR jail;
  • 'U' FOR unauthorized absence;
  • 'W' FOR withheld;
  • 'X' FOR discharged;

  • OUTPUT TRANSFORM:  I $D(GECSOT),(Y']"") S Y=" "
  • LAST EDITED:  JUN 04, 1991
  • DESCRIPTION:  
    This is the code describing the circumstances under which the medication was dispensed or not. if the patient wasn't scheduled for medication on Sunday.
5039 DOSAGE-SUNDAY YSDDC5;40 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N!(X?1" ")) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S(Y'?1.3N:" ",$L(Y)=1:"00"_Y,$L(Y)=2:"0"_Y,1:Y)
  • LAST EDITED:  APR 03, 1991
  • HELP-PROMPT:  Enter the dosage dispensed, in milligrams. Otherwise enter blank.
  • DESCRIPTION:  
    This is the dosage dispensed to the patient in milligrams.
5040 SPECIMEN COLLECTION DATE YSDDC5;41 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • OUTPUT TRANSFORM:  S %=Y D DD^%DT I $D(GECSOT) S Y=%,Y=$E(Y,4,5)_$E(Y,6,7)_$E(Y,2,3)
  • LAST EDITED:  JUL 06, 1998
  • HELP-PROMPT:  Upper right of form. Enter date specimen collected.
  • DESCRIPTION:  
    This is the date on which the specimen for urinalysis was collected.
5041 MORPHINE PRESCRIBED YSDDC5;42 SET
  • 'X' FOR YES;

  • OUTPUT TRANSFORM:  I $D(GECSOT),(Y']"") S Y=" "
  • LAST EDITED:  MAR 28, 1991
  • HELP-PROMPT:  Enter "X" or
  • DESCRIPTION:  
    This is a flag to indicate that morphine is prescribed for this patient.
5042 DRUG NAME/CODE MORPHINE YSDDC5;43 SET
  • '01' FOR MORPHINE RESULT AVAILABLE;

  • OUTPUT TRANSFORM:  I $D(GECSOT),(Y']"") S Y=" "
  • LAST EDITED:  MAR 28, 1991
  • HELP-PROMPT:  Enter only if entry is made for result in card column 43.
  • DESCRIPTION:  
    This is a code indicating that a result is available for morphine level in the urinalysis.
5043 MORPHINE RESULT YSDDC5;44 SET
  • 'P' FOR positive;
  • 'N' FOR negative;
  • 'Q' FOR questionable;

  • OUTPUT TRANSFORM:  I $D(GECSOT),(Y']"") S Y=" "
  • LAST EDITED:  MAR 28, 1991
  • DESCRIPTION:  
    This is a code indicating whether the result of the urine morphine assay was positive, negative or questionable.
5044 BARBITURATE PRESCRIBED YSDDC5;45 SET
  • 'X' FOR YES;

  • OUTPUT TRANSFORM:  I $D(GECSOT),(Y']"") S Y=" "
  • LAST EDITED:  MAR 28, 1991
  • HELP-PROMPT:  Enter "X" or
  • DESCRIPTION:  
    This is a flag indicating that barbiturate is prescribed for this patient.
5045 DRUG NAME/CODE BARBITURATE YSDDC5;46 SET
  • '02' FOR BARBITURATE RESULT AVAILABLE;

  • OUTPUT TRANSFORM:  I $D(GECSOT),(Y']"") S Y=" "
  • LAST EDITED:  MAR 28, 1991
  • HELP-PROMPT:  Enter only if entry is made for result in card column 47.
  • DESCRIPTION:  
    This is a code indicating that a result is available for barbiturate level in the urinalysis.
5046 BARBITURATE RESULT YSDDC5;47 SET
  • 'P' FOR positive;
  • 'N' FOR negative;
  • 'Q' FOR questionable;

  • OUTPUT TRANSFORM:  I $D(GECSOT),(Y']"") S Y=" "
  • LAST EDITED:  MAR 28, 1991
  • DESCRIPTION:  
    This is a code indicating whether the result of the urine barbiturate assay was positive, negative or questionable.
5047 AMPHETAMINE PRESCRIBED YSDDC5;48 SET
  • 'X' FOR YES;

  • OUTPUT TRANSFORM:  I $D(GECSOT),(Y']"") S Y=" "
  • LAST EDITED:  MAR 28, 1991
  • HELP-PROMPT:  Enter "X" or
  • DESCRIPTION:  
    This is a flag to indicate that amphetamine is prescribed for this patient.
5048 DRUG NAME/CODE AMPHETAMINE YSDDC5;49 SET
  • '03' FOR AMPHETAMINE RESULT AVAILABLE;

  • OUTPUT TRANSFORM:  I $D(GECSOT),(Y']"") S Y=" "
  • LAST EDITED:  MAR 28, 1991
  • HELP-PROMPT:  Enter only if entry is made for result in card column 51.
  • DESCRIPTION:  
    This is a code indicating that a result is available for amphetamine level in the urinalysis.
5049 AMPHETAMINE RESULT YSDDC5;50 SET
  • 'P' FOR positive;
  • 'N' FOR negative;
  • 'Q' FOR questionable;

  • OUTPUT TRANSFORM:  I $D(GECSOT),(Y']"") S Y=" "
  • LAST EDITED:  MAR 28, 1991
  • DESCRIPTION:  
    This is a code indicating whether the result of the urine amphetamine assay was positive, negative or questionable.
5050 METHADONE PRESCRIBED YSDDC5;51 SET
  • 'X' FOR YES;

  • OUTPUT TRANSFORM:  I $D(GECSOT),(Y']"") S Y=" "
  • LAST EDITED:  MAR 28, 1991
  • HELP-PROMPT:  Enter "X" or
  • DESCRIPTION:  
    This is a flag to indicate that methadone is prescribed for this patient.
5051 DRUG NAME/CODE METHADONE YSDDC5;52 SET
  • '04' FOR METHADONE RESULT AVAILABLE;

  • OUTPUT TRANSFORM:  I $D(GECSOT),(Y']"") S Y=" "
  • LAST EDITED:  MAR 28, 1991
  • HELP-PROMPT:  Enter only if entry is made for result in card column 55.
  • DESCRIPTION:  
    This is a code indicating that a result is available for methadone level in the urinalysis.
5052 METHADONE RESULT YSDDC5;53 SET
  • 'P' FOR positive;
  • 'N' FOR negative;
  • 'Q' FOR questionable;

  • OUTPUT TRANSFORM:  I $D(GECSOT),(Y']"") S Y=" "
  • LAST EDITED:  MAR 28, 1991
  • DESCRIPTION:  
    This is a code indicating whether the result of the urine methadone assay was positive, negative or questionable.
5053 OTHER DRUG 1 PRESCRIBED YSDDC5;54 SET
  • 'X' FOR YES;

  • OUTPUT TRANSFORM:  I $D(GECSOT),(Y']"") S Y=" "
  • LAST EDITED:  MAR 28, 1991
  • HELP-PROMPT:  Enter "X" or
  • DESCRIPTION:  
    This is a flag to indicate that another drug is prescribed for this patient.
5054 DRUG NAME/CODE OTHER 1 YSDDC5;55 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S(Y'?1.2N:" ",$L(Y)=1:"0"_Y,1:Y)
  • LAST EDITED:  APR 04, 1991
  • HELP-PROMPT:  Enter Drug/Name Code only if entry is made for result in column 59.
  • DESCRIPTION:  
    This is a code indicating that a result is available for another drug level in the urinalysis.
5055 OTHER DRUG 1 RESULT YSDDC5;56 SET
  • 'P' FOR positive;
  • 'N' FOR negative;
  • 'Q' FOR questionable;

  • OUTPUT TRANSFORM:  I $D(GECSOT),(Y']"") S Y=" "
  • LAST EDITED:  MAR 28, 1991
  • DESCRIPTION:  
    This is a code indicating whether the result of the urine assay was positive, negative or questionable.
5056 OTHER DRUG 2 PRESCRIBED YSDDC5;57 SET
  • 'X' FOR YES;

  • OUTPUT TRANSFORM:  I $D(GECSOT),(Y']"") S Y=" "
  • LAST EDITED:  MAR 28, 1991
  • HELP-PROMPT:  Enter "X" or
  • DESCRIPTION:  
    This is a flag to indicate that another drug is prescribed for this patient.
5057 DRUG NAME/CODE OTHER 2 YSDDC5;58 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S(Y'?1.2N:" ",$L(Y)=1:"0"_Y,1:Y)
  • LAST EDITED:  APR 04, 1991
  • HELP-PROMPT:  Enter only if entry is made for result in card column 63.
  • DESCRIPTION:  
    This is a code indicating that a result is available for another drug level in the urinalysis.
5058 OTHER DRUG 2 RESULT YSDDC5;59 SET
  • 'P' FOR positive;
  • 'N' FOR negative;
  • 'Q' FOR questionable;

  • OUTPUT TRANSFORM:  I $D(GECSOT),(Y']"") S Y=" "
  • LAST EDITED:  MAR 28, 1991
  • DESCRIPTION:  
    This is a code indicating whether the result of the urine assay was positive, negative or questionable.
5059 OTHER DRUG 3 PRESCRIBED YSDDC5;60 SET
  • 'X' FOR YES;

  • OUTPUT TRANSFORM:  I $D(GECSOT),(Y']"") S Y=" "
  • LAST EDITED:  MAR 28, 1991
  • HELP-PROMPT:  Enter "X" or
  • DESCRIPTION:  
    This is a flag to indicate that another drug is prescribed for this patient.
5060 DRUG NAME/CODE OTHER 3 YSDDC5;61 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S(Y'?1.2N:" ",$L(Y)=1:"0"_Y,1:Y)
  • LAST EDITED:  APR 04, 1991
  • HELP-PROMPT:  Enter only if entry is made for result in card column 67.
  • DESCRIPTION:  
    This is a code indicating that a result is available for another drug level in the urinalysis.
5061 OTHER DRUG 3 RESULT YSDDC5;62 SET
  • 'P' FOR positive;
  • 'N' FOR negative;
  • 'Q' FOR questionable;

  • OUTPUT TRANSFORM:  I $D(GECSOT),(Y']"") S Y=" "
  • LAST EDITED:  MAR 28, 1991
  • DESCRIPTION:  
    This is a code indicating whether the result of the urine assay was positive, negative or questionable.
5062 NOT TESTED-QTY NOT SUFFICIENT YSDDC5;63 SET
  • 'X' FOR YES;

  • OUTPUT TRANSFORM:  I $D(GECSOT),(Y']"") S Y=" "
  • LAST EDITED:  MAR 28, 1991
  • HELP-PROMPT:  Enter "X" if specimen was too small to test
  • DESCRIPTION:  
    This is a flag it indicate the specimen collected for urinalysis was NOT tested, due to insufficient quantity.
5063 COUNSELING SESSION DATE YSDDC5A;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • OUTPUT TRANSFORM:  S %=Y D DD^%DT I $D(GECSOT) S Y=%,Y=$E(Y,4,5)_$E(Y,6,7)_$E(Y,2,3)
  • LAST EDITED:  JUL 06, 1998
  • HELP-PROMPT:  Enter the date of the counseling session.
  • DESCRIPTION:  
    This is the date on which the counseling session being reported by this transaction occurred.
5064 SUBJ DISC/REASON FOR ABS 1 YSDDC5A;2 SET
************************REQUIRED FIELD************************
  • 'B' FOR subst abuse;
  • 'E' FOR economics;
  • 'M' FOR medical;
  • 'P' FOR psychological;
  • 'S' FOR social;
  • 'C' FOR couns unavailable;
  • 'H' FOR hospital;
  • 'J' FOR jail;
  • 'U' FOR unauthorized absence;
  • 'V' FOR avoidance of couns;
  • 'A' FOR authorized absence;

  • LAST EDITED:  MAR 27, 1991
  • DESCRIPTION:  
    This is a code describing the subjects discussed, or the reason for absence from the counseling session being reported by this transaction.
5065 SUBJ DISC/REASON FOR ABS 2 YSDDC5A;3 SET
  • 'B' FOR subst abuse;
  • 'E' FOR economics;
  • 'M' FOR medical;
  • 'P' FOR psychological;
  • 'S' FOR social;
  • 'C' FOR couns unavailable;
  • 'H' FOR hospital;
  • 'J' FOR jail;
  • 'U' FOR unauthorized absence;
  • 'V' FOR avoidance of couns;

  • OUTPUT TRANSFORM:  I $D(GECSOT),(Y']"") S Y=" "
  • LAST EDITED:  MAR 28, 1991
  • DESCRIPTION:  
    This is a code describing the subjects discussed, or the reason for absence from the counseling session being reported by this transaction.
5066 SUBJ DISC/REASON FOR ABS 3 YSDDC5A;4 SET
  • 'B' FOR subst abuse;
  • 'E' FOR economics;
  • 'M' FOR medical;
  • 'P' FOR psychological;
  • 'S' FOR social;
  • 'C' FOR couns unavailable;
  • 'H' FOR hospital;
  • 'J' FOR jail;
  • 'U' FOR unauthorized absence;
  • 'V' FOR avoidance of couns;

  • OUTPUT TRANSFORM:  I $D(GECSOT),(Y']"") S Y=" "
  • LAST EDITED:  MAR 28, 1991
  • DESCRIPTION:  
    This is a code describing the subjects discussed, or the reason for absence from the counseling session being reported by this transaction.
5067 HCF CENTRAL OFFICE USE ONLY YSDDC5A;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4) X
  • OUTPUT TRANSFORM:  I $D(GECSOT) S Y=$S($L(Y)<4:" ",1:Y)
  • LAST EDITED:  APR 05, 1991
  • HELP-PROMPT:  Answer must be 4 characters in length.
  • DESCRIPTION:  
    This is a four character pad reserved in the record for central office use. Its existence is transparent to the user.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields  | All