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 |  Found Entries |  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: 60

Package Total Routines
IFCAP 17 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 15 GECS READY FOR BATCHING    GECSBATC    GECSDG    GECSEDIT    GECSENTR    GECSMUT1    GECSMUT2    GECSPPRE
GECSPUR1    GECSTRAN    GECSUFMS    GECSUSTA    GECSUTIL    GECSXBL1    GECSXBLD    
Fee Basis 3 FB FEEBASIS-IFCAP 994.00    FB FEEBASIS-IFCAP 994.01    FB FEEBASIS-IFCAP 994.90    
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).
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