STANDARD DATA DICTIONARY #2100 -- GENERIC CODE SHEET FILE 3/24/25 PAGE 1
STORED IN ^GECS(2100, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file is used to store the fields and data which make up the actual code sheet.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
IDENTIFIED BY: SYSTEM IDENTIFIER (#1), TRANSACTION TYPE/SEGMENT (#7), DATE CREATED (#9), AMIS MONTH/YEAR (#9.1)[R]
CROSS
REFERENCED BY: BATCH NUMBER(AB), READY FOR BATCHING(AC), READY FOR TRANSMISSION(AE), ID(B)
2100,.01 ID 0;1 FREE TEXT (Required)
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.
2100,.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.
2100,.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.
2100,.6 SCHEDULED TRANSMISSION DATE TRANS;7 DATE (Required)
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.
2100,.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.
2100,.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.
2100,.9 BATCH PRIORITY TRANS;10 NUMBER (Required)
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.
2100,.95 PREPARED BY TRANS;12 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: DEC 13, 1993
DESCRIPTION:
This field is used to store the user who created the code sheet.
2100,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.
2100,2 BATCH TYPE 0;3 POINTER TO GENERIC CODE SHEET BATCH TYPE FILE (#2101.1) (Required)
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.
2100,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.
2100,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
2100,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).
2100,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.
2100,9.01 CREATED BY 0;4 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: NOV 03, 1993
DESCRIPTION:
This field is used to store the user who created the code sheet.
2100,9.1 AMIS MONTH/YEAR 0;9 DATE (Required)
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)_"0
0"
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
2100,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.
2100,50 CODE CODE;0 Multiple #2100.01 (Add New Entry without Asking)
DESCRIPTION:
This field is used to store the generated code sheet which will be transmitted.
2100.01,.01 CODE 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>200!($L(X)<1) X
LAST EDITED: AUG 10, 1989
HELP-PROMPT: ANSWER MUST BE 1-200 CHARACTERS IN LENGTH
DESCRIPTION:
This field is used to store the generated code sheet which will be transmitted.
2100,51 KEYPUNCH CODE SHEET KEY;0 WORD-PROCESSING #2100.051 (NOWRAP)
DESCRIPTION: The field used for input into a keypunch code sheet. The user may use this field to directly input
a code sheet (via a word processing field).
LAST EDITED: JAN 11, 1989
DESCRIPTION: The field used for input into a keypunch code sheet. The user may use this field to directly
input a code sheet (via a word processing field).
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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.
2100,200 FACILITY NUMBER VOLUVOL2;1 FREE TEXT (Required)
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
2100,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
2100,202 SOCIAL SECURITY NUMBER VOLUVOL2;3 FREE TEXT (Required)
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
2100,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
2100,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
2100,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
2100,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)
2100,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
2100,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.
2100,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.
2100,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.
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,224 C&A STATION NUMBER PRCCCA2;1 FREE TEXT (Required)
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
2100,225 IDENTIFICATION NUMBER PRCCCA2;2 FREE TEXT (Required)
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)
2100,226 NAME CODE PRCCCA2;3 FREE TEXT (Required)
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)
2100,227 DAY NUMBER PRCCCA2;4 FREE TEXT (Required)
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
2100,228 TRANS TYPE PRCCCA2;5 FREE TEXT (Required)
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.
2100,229 ACTION PRCCCA2;6 FREE TEXT (Required)
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
2100,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.
2100,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.
2100,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
2100,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
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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
2100,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.
2100,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
2100,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
2100,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
2100,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
2100,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.
2100,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
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,281 PAY VISITS PRCCCA2A;32 NUMBER (Required)
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.
2100,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:
2100,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
2100,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
2100,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.
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,402 TRANSACTION NUMBER FMS;2 FREE TEXT (Required)
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
2100,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.
2100,404 SECURITY CODE FMS;4 FREE TEXT (Required)
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.
2100,405 FCP UPDATED FMS;5 SET (Required)
'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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,450.01 VENDOR ID FMSTV2;1 FREE TEXT (Required)
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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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
2100,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.
2100,450.08 HDR FUND FMSTV2;8 FREE TEXT (Required)
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.
2100,450.09 TRANSACTION TYPE FMSTV2;9 FREE TEXT (Required)
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.
2100,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.
2100,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.
2100,450.12 RECORD MONTH FMSTV2;12 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<2)!'(X?2N&(02!($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.
2100,450.14 NUMBER OF DAYS FMSTV2;14 NUMBER (Required)
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.
2100,450.15 YEAR TRAVEL BEGINS FMSTV2;15 FREE TEXT (Required)
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.
2100,450.16 MONTH TRAVEL BEGINS FMSTV2;16 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<2)!'(X?2N&(02!($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.
2100,450.18 YEAR TRAVEL ENDS FMSTV2;18 FREE TEXT (Required)
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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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
2100,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
2100,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.
2100,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.
2100,450.32 XORGANIZATION SUBMIT FMSTV3;4 FREE TEXT (Required)
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.
2100,450.33 TICKET AMT FMSTV3;5 NUMBER (Required)
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.
2100,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.
2100,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.
2100,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
2100,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
2100,450.38 TOTAL VERIFIED AMT FMSTV3;10 NUMBER (Required)
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.
2100,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.
2100,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.
2100,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
2100,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.
2100,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
2100,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.
2100,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
2100,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.
2100,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
2100,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
2100,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.
2100,450.5 PRINT CHECK FLAG FMSTV3;22 FREE TEXT (Required)
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
2100,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
2100,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
2100,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.
2100,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
2100,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.
2100,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
2100,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
2100,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
2100,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.
2100,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
2100,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.
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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.
2100,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
2100,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.
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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.
2100,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
2100,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.
2100,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
2100,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
2100,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.
2100,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
2100,450.82 TRAVEL DATE BEGINS FMSTV2;29 DATE (Required)
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.
2100,450.83 TRAVEL DATE ENDS FMSTV2;30 DATE (Required)
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.
2100,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.
2100,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.
2100,452.05 TRAVEL TYPE FMSTO2;5 FREE TEXT (Required)
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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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.
2100,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.
2100,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.
2100,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
2100,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.
2100,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
2100,452.33 TRAVEL PURPOSE CODES FMSTO3;6 FREE TEXT (Required)
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
2100,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
2100,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
2100,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.
2100,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
2100,452.38 OBLIG TRANS TYPE FMSTO3;11 FREE TEXT (Required)
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
2100,452.39 TOTAL OBLIGATION FMSTO3;12 NUMBER (Required)
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.
2100,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
2100,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
2100,452.42 ADVANCE TRANS TYPE FMSTO3;15 FREE TEXT (Required)
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
2100,452.43 TOTAL ADVANCE FMSTO3;16 NUMBER (Required)
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.
2100,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
2100,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
2100,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.
2100,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.
2100,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.
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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.
2100,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
2100,452.6 SEQ NUMBER FMSTO4;14 FREE TEXT (Required)
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
2100,452.62 TRAVEL ADVANCE NUMB FMSTO4;16 FREE TEXT (Required)
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
2100,452.63 HEADER XORGANIZATION FMSTO4;17 FREE TEXT (Required)
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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,452.71 ADV FUND FMSTO5;6 FREE TEXT (Required)
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
2100,452.72 ADV BUDGET FY FMSTO5;7 FREE TEXT (Required)
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.
2100,452.73 ADV END BUDGET FY FMSTO5;8 FREE TEXT (Required)
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.
2100,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.
2100,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.
2100,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
2100,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.
2100,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
2100,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.
2100,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.
2100,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
2100,454.1 DOCUMENT TYPE FMSTP2;10 FREE TEXT (Required)
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
2100,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.
2100,454.12 SCHED MONTH FMSTP2;12 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(X?1.2N&(02!($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.
2100,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
2100,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
2100,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
2100,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.
2100,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
2100,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
2100,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
2100,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
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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
2100,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.
2100,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.
2100,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.
2100,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).
2100,455.18 DIRECT DISB NUMBER FMSDD2;18 FREE TEXT (Required)
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
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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
2100,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.
2100,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.
2100,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
2100,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.
2100,458.19 HDR VENDOR ID FMSIF2;19 FREE TEXT (Required)
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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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).
2100,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.
2100,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
2100,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.
2100,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
2100,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.
2100,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.
2100,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.
2100,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.
2100,461.08 VENDOR INVOICE FMSTN2;8 FREE TEXT (Required)
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.
2100,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.
2100,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
2100,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.
2100,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.
2100,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
2100,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.
2100,461.23 VENDOR INVOICE YEAR FMSTN2;23 FREE TEXT (Required)
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.
2100,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
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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
2100,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
2100,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.
2100,462.25 DELIVERY MM FMSMO3;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<2)!'(02!($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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,462.32 ENDING MM FMSMO3;9 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(02!($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.
2100,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".
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,462.41 EFFECTIVE MM FMSMO3;18 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(02!($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.
2100,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).
2100,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.
2100,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.
2100,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).
2100,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).
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,462.57 ASSOC TRAN CODE HDR FMSMO3;34 FREE TEXT
TRANSACTION CODE OF ASSOCIATED DOCUMENT
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.
2100,462.58 ASSOC DOC ID HDR FMSMO3;35 FREE TEXT
DOCUMENT NUMBER OF ASSOCIATED DOCUMENT
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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,463.01 RECEIVED BY FMSRC2;1 FREE TEXT (Required)
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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,463.07 RECEIVER DLN FMSRC3;2 NUMBER (Required)
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.
2100,463.08 REF TRANS CODE FMSRC2;6 FREE TEXT (Required)
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.
2100,463.09 REF TRANS NUMBER FMSRC2;7 FREE TEXT (Required)
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.
2100,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.
2100,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.
2100,463.12 REVERSAL FISC MONTH (RC) FMSRC3;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(015!($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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,467.17 WORK INSTALLED FMSPV4;3 NUMBER (Required)
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.
2100,467.18 NET PAYMENT AMT FMSPV4;4 NUMBER (Required)
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.
2100,467.19 HOLDBACK PYMT AMT FMSPV4;5 NUMBER (Required)
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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,500 LINE FMSLIN;0 Multiple #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.
2100.02,.01 LINE 0;1 NUMBER (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X I $D(X) S DINUM=X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: APR 06, 1994
HELP-PROMPT: Enter the FMS line number from 1 to 999.
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.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 2100.02^B
1)= S ^GECS(2100,DA(1),"FMSLIN","B",$E(X,1,30),DA)=""
2)= K ^GECS(2100,DA(1),"FMSLIN","B",$E(X,1,30),DA)
This is a standard VA FileMan "B" cross reference.
2100.02,50.01 FUND TVA;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>6!($L(X)<1) X
LAST EDITED: DEC 15, 1993
HELP-PROMPT: Answer must be 1-6 characters in length.
DESCRIPTION: System-maintained. The code of the fund to be charged for the item on this line. This field is
the same as that entered in the header portion of the document.
2100.02,50.02 XORGANIZATION TVA;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>7!($L(X)<1) X
LAST EDITED: DEC 15, 1993
HELP-PROMPT: Answer must be 1-7 characters in length.
DESCRIPTION:
Enter the code for the station which is funding this part of FMS document.
2100.02,50.03 SAT STATION TVC;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1) X
LAST EDITED: MAY 10, 1994
HELP-PROMPT: Answer must be 1-2 characters in length.
DESCRIPTION: Optional. Enter the satellite station. The code must be valid in the Satellite Station/Sub Cost
Center Table (SORG).
2100.02,50.04 COST CENTER TVA;4 FREE TEXT
INPUT TRANSFORM: S DIC="^PRCD(420.1,",DIC(0)="EMNQZ" D ^DIC K:Y<0 X I Y>0 S X=$E($P(Y(0),"^"),1,7)
LAST EDITED: MAY 10, 1994
HELP-PROMPT: Answer must be 1-7 characters in length.
DESCRIPTION: Optional. Enter this code only if the station using the goods being paid for on this voucher is
different from the Station. The code used must be valid in the Station/Cost Center Table (ORGN).
This field may not be changed by a MODIFY document.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2100.02,50.05 SUB COST CENTER TVC;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1) X
LAST EDITED: MAY 10, 1994
HELP-PROMPT: Answer must be 1-2 characters in length.
DESCRIPTION: Optional. Enter the sub cost center. The code used must be valid in the Satellite Station/Sub
Cost Center(SORG). This field may not be changed by a MODIFY document.
2100.02,50.06 BUDGET OBJECT CODE TVA;6 FREE TEXT (Required)
INPUT TRANSFORM: S DIC="^PRCD(420.2,",DIC(0)="EMNQZ" D ^DIC K:Y<0 X I Y>0 S X=$E($P(Y(0),"^"),1,4)
LAST EDITED: MAY 03, 1994
HELP-PROMPT: Answer must be 1-4 characters in length.
DESCRIPTION: Required expense lines unless a reference document and line number are entered, must be blank for
disbursement lines (Line Type of O or T). Enter the code from the Budget Object/Limitation
Table(BOAT) that best describe this accounting expense line.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2100.02,50.07 BUDGET FY TVA;7 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>2!($L(X)<2)!'(X?2N) X
LAST EDITED: JAN 31, 1994
HELP-PROMPT: Answer must be 2 characters in length.
DESCRIPTION: System-maintained. The last 2 digits of the fiscal years to be charged for the item on this line.
This field is the same as that entered in the header portion of the document.
2100.02,50.08 END BUDGET FY TVA;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<2)!'(X?2N) X
LAST EDITED: JAN 31, 1994
HELP-PROMPT: Answer must be 2 characters in length.
DESCRIPTION:
Enter the last 2 digits of ending fiscal year to which the FMS document applies.
2100.02,50.09 SUB BOC TVC;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1) X
LAST EDITED: MAY 10, 1994
HELP-PROMPT: Answer must be 1-2 characters in length.
DESCRIPTION: Required if the Budget Object Code has a Y in the Sub-object code required field. Optional if
the Prior Document Reference Option in the System Control Option Table (SOPT) is Y and a Travel
Order is referenced on the line. Enter the code from the Sub-Object Table (SOBJ) that best
describes this accounting expense line.
2100.02,50.1 REPORTING CATEGORY TVA;10 FREE TEXT
INPUT TRANSFORM: K:$L(X)>4!($L(X)<1) X
LAST EDITED: JAN 31, 1994
HELP-PROMPT: Answer must be 1-4 characters in length.
DESCRIPTION: Optional. Record an appropriate code from the Reporting Category Table (RPTG). If this field is
entered when the line references a Travel Order, the code must be the same as the one used on the
referenced line.
2100.02,50.11 JOB NUMBER TVA;11 FREE TEXT
INPUT TRANSFORM: K:$L(X)>8!($L(X)<1) X
LAST EDITED: JAN 31, 1994
HELP-PROMPT: Answer must be 1-8 characters in length.
DESCRIPTION:
Enter the code for the job which is being charged.
2100.02,50.12 XPROGRAM TVA;12 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>9!($L(X)<1) X
LAST EDITED: JAN 31, 1994
HELP-PROMPT: Answer must be 1-9 characters in length.
DESCRIPTION: Enter the code of the FCP/PRJ related to this voucher. The FCP/Project, in conjunction with the
station code, must be valid in the FCP/Project Table.
2100.02,50.13 TRAVEL TYPE TVA;13 FREE TEXT
INPUT TRANSFORM: K:$L(X)>3!($L(X)<1) X
LAST EDITED: JAN 31, 1994
HELP-PROMPT: Answer must be 1-3 characters in length.
DESCRIPTION: Required for expense lines if decentralized Travel Order was entered as the reference document
and this order does not exist on the TOHT. Not allowed for disbursement lines (Line Type O or
T). Identifies the type of travel with which this expense is associated. Valid values are
maintained on the Travel Type Table (TTYP). If left blank, it defautls to the Tvavel Type of the
travel order. This field may not be changed by a MODIFY document.
2100.02,50.14 DESCRIPTION CODE TVC;6 SET
'B' FOR BENEFICIARY/VET;
'C' FOR COMMERCIAL PAYMENTS;
'E' FOR EMPLOYEE PAYMENTS;
'G' FOR GSA;
'R' FOR RITA;
'W' FOR WTA;
'X' FOR CONVERSION;
LAST EDITED: MAY 10, 1994
HELP-PROMPT: Enter 'B' for Beneficiary/Vet. 'C' for Commercial Payments. 'E' for Employee Payments. 'G' for
GSA. 'R' for RITA. 'W' For WTA. 'X' for Conversion.
DESCRIPTION: Required if Exception Amount is not blank or zero. Valid exception codes are maintained on the
Travel Exception Reason Code Table (TXRC).
2100.02,50.15 REF TRANS CODE TVA;15 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1) X
LAST EDITED: JAN 31, 1994
HELP-PROMPT: Answer must be 1-2 characters in length.
DESCRIPTION: Required for expense liines if either Decentralized Travel Order flags on TTYP or ORGN for this
travel type is Y.
2100.02,50.16 REF TRANS NUMBER TVA;16 FREE TEXT
INPUT TRANSFORM: K:$L(X)>11!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: AUG 18, 1994
HELP-PROMPT: Answer must be 1-11 characters in length.
DESCRIPTION:
Required only if reference document is entered.(001-999)
2100.02,50.17 REF TRANS LINE NUM TVA;17 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 0 and 999, 0 Decimal Digits
DESCRIPTION: Required if reference document is entered; leave blank otherwise. Enter the Travel Order Line
Number which obligated this expense.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2100.02,50.18 ACTUAL COST INC DEC TVA;18 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1) X
LAST EDITED: APR 27, 1994
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION: Optional for modification documents, leave blank on original entry. Enter a D for a decrease in
exception amount, I for an increase.
2100.02,50.19 ACTUAL COST AMOUNT TVA;19 NUMBER (Required)
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 27, 1994
HELP-PROMPT: Type a Dollar Amount between 0 and 99999999999.99, 2 Decimal Digits
DESCRIPTION: Required . If this is a new line, enter the dollar amount of the item(s) described on this line.
This should be the claimed amount net of any exception.
2100.02,50.2 EXCEPTION INC DEC TVA;20 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1) X
LAST EDITED: JAN 31, 1994
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION: Optional for modification document, leave blank on original entry. Enter a D for a decrease in
actual cost, I for an increase. When document action is E, a blank defaults to I (increae). This
field may be changed by a Modify document.
2100.02,50.21 EXCEPTION AMT TVA1;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 27, 1994
HELP-PROMPT: Type a Dollar Amount between 0 and 99999999999.99, 2 Decimal Digits
DESCRIPTION: Optional. Enter the amount to which exception is taken. This amount is used for reporting
purposes only and must be positive. If an exception is entered in the header, then any amount
entered here is not recorded on any tables. This field may be changed by a MODIFY document.
2100.02,50.22 EXCEPT CODE TVA1;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1) X
LAST EDITED: JAN 31, 1994
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION:
Required if Exception Amount is not blank or zero.
2100.02,50.23 TAX CODE TVA1;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X'?1P) X
LAST EDITED: AUG 18, 1994
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION:
Required for expense lines if Travel Type has a Taxable flag of Y on TTYP.
2100.02,50.24 PARTIAL FINAL FLAG TVA1;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1) X
LAST EDITED: JAN 31, 1994
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION: Optional. This field is used only when a travel order is referenced and is determined by the
combination of reference order outstanding amount, travel payment line amount, and liquidation
amount.
2100.02,50.25 TAX TYPE TVA1;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1) X
LAST EDITED: JAN 31, 1994
HELP-PROMPT: Answer must be 1-2 characters in length.
DESCRIPTION: Required if the line type is T, otherwise it must be left blank, Enter the tax type associated
with the tax being withheld on this line. The code must be valid on the Tax Withholding Payment
Table (TWPT).
2100.02,50.26 GTR NUMBER TVA1;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
LAST EDITED: JAN 31, 1994
HELP-PROMPT: Answer must be 1-10 characters in length.
DESCRIPTION: Optional for TY document. Enter the number of the GTR. If this ticket was purchased through the
GTS, you may enter contract number. If left blank, it defaults to the GTR listed on the Ticket
Table.
2100.02,50.27 TICKET NUMBER TVA1;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>12!($L(X)<1) X
LAST EDITED: JAN 31, 1994
HELP-PROMPT: Answer must be 1-12 characters in length.
DESCRIPTION: Required for TY document if the Ticket Processing Option flag on the Travel Special Options Table
(TSPC) is R. Enter the ticket number. If the ticket was downgraded, use the original ticket
number. This field may be changed by a MODIFY document only if the Ticket Processing Option flag
on the Travel Special Option Table (TSPC) is N.
2100.02,50.28 TO TRANS CODE TVA1;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1) X
LAST EDITED: JAN 31, 1994
HELP-PROMPT: Answer must be 1-2 characters in length.
DESCRIPTION: Enter the transaction code of the Travel Order which authorized funds for this ticket. If
entered, the Travel Order must be present on the Travel Order Header Table (THOT). This field may
be changed by a MODIFY document.
2100.02,50.29 TO TRANS NUMBER TVA1;9 FREE TEXT
INPUT TRANSFORM: K:$L(X)>11!($L(X)<1) X
LAST EDITED: JAN 31, 1994
HELP-PROMPT: Answer must be 1-11 characters in length.
DESCRIPTION: Optional for TY Document. Enter the transaction number of the Travel Order which authorized funds
for this ticket. If entered, the Travel Order must be present on the Travel Order Header
Table(TOHT). This field may be changed by a MODIFY document.
2100.02,50.3 TICKET INC DEC TVA1;10 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1) X
LAST EDITED: JAN 31, 1994
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION:
Optional for modification documents. Blank on original entry. Defaults to I (increase).
2100.02,50.31 TICKET AMOUNT TVA1;11 NUMBER (Required)
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) I Y="0.00" S Y=""
LAST EDITED: APR 21, 1994
HELP-PROMPT: Type a Dollar Amount between 0 and 999999999.99, 2 Decimal Digits
DESCRIPTION: Required for TY document if Ticket number has been entered. Enter the amount of the ticket on
this line. If the ticket was downgraded, use the lower,net amount. Thsi field may be changed by a
MODIFY document.
2100.02,50.33 STAT JOB NUMBER TVA1;13 FREE TEXT
INPUT TRANSFORM: K:$L(X)>8!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 11, 1994
HELP-PROMPT: Answer must be 1-8 characters in length.
DESCRIPTION: Required for TY document if Travel Statistics flag for the Home Station's Administration/Staff
Office is Y on the Administration/Staff Office Table, unless classified. Enter the code for the
job which is being charged. This job number is not edited against any tables, and is not used by
the Project Cost Accounting subsystem. This field may not be changed by a MODIFY document.
2100.02,50.34 LOCATION CODE TVA1;14 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 11, 1994
HELP-PROMPT: Answer must be 1-4 characters in length.
DESCRIPTION: Required for TY document if Travel Statistics flag for the Home Station's administration/staff
office is Y on the Administration/Staff Office Table(DVSN), unless classified. Enter the code
which indicates where the employee has travelled.
2100.02,50.35 NUMBER OF DAYS TVA1;15 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JAN 31, 1994
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: Required for TY document if Travel Statistics flag for the Home Station's administration/staff is
Y on the Administration/Staff Office Table (DVSN), unless classified. Enter the number of days
involved in the travel for that job. This field may be changed by a MODIFY document.
2100.02,50.36 ROLE CODE TVA1;16 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 11, 1994
HELP-PROMPT: Answer must be 1-4 characters in length.
DESCRIPTION: Enter the code which indicates the role of the employee for this assignment. Valid code are
maintained on the Travel Role Table (TROL). Required for TY document if Travel Statistics flag
for the Home Station's administration/staff office is Y on the Administraton/Staff Office Table,
unless classified. This field may be changed by a MODIFY document.
2100.02,50.37 STAT COST AMT TVB;1 NUMBER (Required)
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: JUL 11, 1994
HELP-PROMPT: Type a Dollar Amount between 0 and 99999999999.99, 2 Decimal Digits
DESCRIPTION: Emter the amount charged against this job code. Required for TY document if Travel Statistics
flag for the Home Station's Admin/Staff office is Y on the Admin/Staff Office Table, unless
classified.
2100.02,50.38 STAT COST INC DEC TVB;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X'?1P) X
LAST EDITED: JUL 11, 1994
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION:
Optional for Modification documents. Blank on original entry. Defaults to I (increase).
2100.02,50.39 LINE TYPE TVB;3 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X'?1P) X
LAST EDITED: JUL 11, 1994
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION:
Required. Enter E for expenses, O if owed to an employee, T for tax withheld. Defaults to E.
2100.02,50.4 LINE DESCRIPTION TVB;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 11, 1994
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION: Optional. Enter any information you want recorded about this accounting expense line. This field
may be changed by a MODIFY document.
2100.02,50.41 LIQUIDATION AMOUNT TVB;5 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 27, 1994
HELP-PROMPT: Type a Dollar Amount between 0 and 99999999999.99, 2 Decimal Digits
DESCRIPTION: Optional. This field may be entered on original entry travel voucher documents to automatically
adjust the referenced obligation. If the line amount entered is greater than the liquidation
amount, the corresponding obligation will be increased by the difference between the line amount
and the liquidation amount. If the line amount is less than the liquidation amount, the
corresponding obligation will be decreased by the difference
2100.02,50.42 CLOSED BEG BUDGET FY TVB;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<2)!'(X?2N) X
LAST EDITED: APR 18, 1994
HELP-PROMPT: Answer must be 2 characters in length.
DESCRIPTION: Required if subclass Indicator on the Fund Table (FUND) for the entered budget fiscal year(s) and
fund is Y; must be blank otherwise. Enter the Budget Fiscal Year(s) of the applicable closed fund
for which this document was originally chargeable. This field may not be changed by a MODIFY
document.
2100.02,50.43 CLOSED END BUDGET FY TVB;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<2)!'(X?2N) X
LAST EDITED: APR 18, 1994
HELP-PROMPT: Answer must be 2 characters in length.
DESCRIPTION: Required if the Subclass Indicator on the Fund Table (FUND) for the entered budget fiscal year(s)
and fund is Y; must be blank otherwise. Enter the Budget Fiscal Year(s) of the applicable closed
fund for which this document was originally chargeable. This field may not be changed by a MODIFY
document.
2100.02,50.44 CLOSED FUND TVB;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>6!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 12, 1994
HELP-PROMPT: Answer must be 1-6 characters in length.
DESCRIPTION: Required if the Subclass Indicator on the Fund Table (FUND) for the entered budget fiscal year(s)
and fund is Y; must be blank otherwise. Enter the fund of the applicable closed fund for which
this document was originally chargeable. The code must be valid on the Fund Table (FUND). This
field may not be changed by a MODIFY document.
2100.02,50.45 PAID FLAG TVC;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X'?1P) X
LAST EDITED: JUL 12, 1994
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION:
Not on the user screen. Will be used in the future.
2100.02,50.46 XDIVISION TVC;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>4!($L(X)<1)!'(X'?1P) X
LAST EDITED: JUL 12, 1994
HELP-PROMPT: Answer must be 1-4 characters in length.
DESCRIPTION:
Not on the user screen. System-maintained.
2100.02,52.12 LINE AMOUNT TOA;12 NUMBER (Required)
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: MAY 06, 1994
HELP-PROMPT: Type a Dollar Amount between 0 and 99999999999.99, 2 Decimal Digits
DESCRIPTION: Required. Enter the obligation amount associated with the station and budget object code. This
field may be changed by a MODIFY document.
2100.02,52.13 LINE AMOUNT INC DEC TOA;13 SET
'I' FOR INCREASE;
'D' FOR DECREASE;
LAST EDITED: APR 07, 1994
DESCRIPTION: Optional for modification document, leave blank on original entry. Enter a D for a decrease in
obligation amount, I for an increase. If left blank, it defaults to I (increase). This field may
be changed by a MODIFY document.
2100.02,54.03 REF TRANS LINE TPA;3 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 0 and 999, 0 Decimal Digits
DESCRIPTION:
Required if obligating document is not blank. Blank otherwise.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2100.02,54.04 ACCEPT YEAR TPA;4 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: Optional. Enter the date on which the goods or services authorized for payment on this line have
been accepted. This date is used in scheduling vouchers for payment. You need to enter this date
only if it is later than the vendor invoice date in the Document Tracking Subsystem. This field
may not be changed by a MODIFY document.
2100.02,54.05 ACCEPT MONTH TPA;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(X?1.2N&(02!($L(X)<1)!'(X?1.2N) X
LAST EDITED: MAR 04, 1994
HELP-PROMPT: Answer must be 1-2 characters in length.
DESCRIPTION:
Refer to ACCEPT YEAR.
2100.02,54.07 VENDOR INVOICE TPA;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 12, 1994
HELP-PROMPT: Answer must be 1-20 characters in length.
DESCRIPTION: Optional. Enter the vendor's invoice number for which authorization for payment is being made on
this document.
2100.02,54.08 VENDOR INVOICE LINE TPA;8 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 0 and 999, 0 Decimal Digits
DESCRIPTION:
Enter the specific vendor's invoice line here.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2100.02,54.1 LINE TRANS TYPE TPA;10 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 12, 1994
HELP-PROMPT: Answer must be 1-2 characters in length.
DESCRIPTION: Required on original entry if not entered in the header portion of the document. Enter the
transaction type appropriate for the accounting model desired for this line.
2100.02,54.11 LINE BUDGET FY TPA;11 FREE TEXT (Required)
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:
Required. Enter the last two digits of the fiscal year to be charged for the items on this line.
2100.02,54.12 LINE END BUDGET FY TPA;12 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: Required if Ending Budget Fiscal Year is not same as Beginning Budget Fiscal Year. Blank
otherwise.
2100.02,54.13 LINE FUND TPA;13 FREE TEXT
INPUT TRANSFORM: K:$L(X)>6!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 12, 1994
HELP-PROMPT: Answer must be 1-6 characters in length.
DESCRIPTION:
Enter the fund for which this line was originally chargeable.
2100.02,54.23 GL ACCOUNT TPA;23 FREE TEXT
INPUT TRANSFORM: K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 12, 1994
HELP-PROMPT: Answer must be 1-4 characters in length.
DESCRIPTION: Optional. usually left blank for expense and expenditure document. If entered, this code is used
as the override account when accessing the Accounting Entries Tabel. The code must be valid in
the General Ledger Account Reference Table (GLAC), and can not be one for which the Prohibited on
Input flag is Y.
2100.02,54.24 QUANTITY TPA;24 FREE TEXT
INPUT TRANSFORM: K:$L(X)>9!($L(X)<1)!'(X?1.9N) X
LAST EDITED: MAR 04, 1994
HELP-PROMPT: Answer must be 1-9 characters in length and numeric.
DESCRIPTION: Optional, for reporting purposes only. If entered, must be numeric. This field may be changed by
a MODIFY document.
2100.02,54.25 REVENUE SOURCE TPA;25 FREE TEXT
INPUT TRANSFORM: K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 12, 1994
HELP-PROMPT: Answer must be 1-4 characters in length.
DESCRIPTION:
Required for governmental refund documents. Blank otherwise.
2100.02,54.26 SUB REV SOURCE TPA;26 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 12, 1994
HELP-PROMPT: Answer must be 1-2 characters in length.
DESCRIPTION: Required for agency refunds if the Sub-Revenue Source Option in the Revenue Source Table (RSRC)
is Y for the revenue source code used. Optional otherwise for agency refunds. Blank otherwise.
2100.02,54.27 VENDOR INVOICE YEAR TPA;27 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<2)!'(X?2N) X
LAST EDITED: APR 27, 1994
HELP-PROMPT: Answer must be 2 characters in length.
DESCRIPTION:
Optional. Defaults to document date.
2100.02,54.28 VENDOR INVOICE MONTH TPA;28 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(X?1.2N&(02!($L(X)<1)!'(X?1.2N) X
LAST EDITED: APR 27, 1994
HELP-PROMPT: Answer must be 1-2 characters in length.
DESCRIPTION:
Optional. Defaults to document date.
2100.02,54.3 INT REASON CODE TPA;30 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X'?1P) X
LAST EDITED: JUL 12, 1994
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION:
This field is optional. Enter the appropriate INT REASON CODE for this line.
2100.02,54.32 INCREASE/DECREASE INDICATOR TPA;32 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X'?1P) X
LAST EDITED: JUL 12, 1994
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION:
Optional. Enter a I for increase, D for decrease.
2100.02,54.33 PARTIAL FINAL IND TPA;33 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X'?1P) X
LAST EDITED: JUL 12, 1994
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION: Optional. P for partial payment of reference document line; F for full payment of reference
document line.
2100.02,54.34 EMPLOYEE ID TPA;34 FREE TEXT
INPUT TRANSFORM: K:$L(X)>9!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 12, 1994
HELP-PROMPT: Answer must be 1-9 characters in length.
DESCRIPTION:
Required if Vendor Control Option in System Control Options Table (SOPT) is Y. Blank otherwise.
2100.02,54.35 EMPLOYEE ADDR CODE TPA;35 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 12, 1994
HELP-PROMPT: Answer must be 1-2 characters in length.
DESCRIPTION:
Required if Vendor Control Option in System Control Options Table is Y. Blank otherwise.
2100.02,54.37 RELATED GBL TPB;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>11!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 12, 1994
HELP-PROMPT: Answer must be 1-11 characters in length.
DESCRIPTION:
This field is optional.
2100.02,54.38 DISC LOST RSN CODE TPB;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X'?1P) X
LAST EDITED: JUL 12, 1994
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION:
Optional.
2100.02,54.44 DISCOUNT TYPE TPC;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X'?1P) X
LAST EDITED: JUL 12, 1994
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION:
This field is not on user screen. Will be used in the future.
2100.02,55.34 ADVANCE FLAG DDA;34 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X'?1P) X
LAST EDITED: JUL 12, 1994
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION: Optional for Direct Disbursement (DD). Enter A if this line represents a refund of a previously
received customer agreement advance. If A is entered, the agreement number must also be entered.
2100.02,55.35 VI LOG YEAR DDA;35 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: Optional. Enter the official receipt date for the vendor invoice entered on this line if voucher
tracking is not entered. If entered, the invoice Log Date must be greater than or equal to the
Vendor Invoice Date.
2100.02,55.36 VI LOG MONTH DDA;36 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:
Refer to VI LOG YEAR.
2100.02,55.37 VI LOG DAY DDA;37 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:
Refer to VI LOG DAY.
2100.02,55.38 REF ADV TRANS CODE DDA;38 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X
LAST EDITED: JUL 12, 1994
HELP-PROMPT: Answer must be 2 characters in length.
DESCRIPTION: Optional. Required if this is an advance offset line. Enter the transaction code of the document
used to issue the advance. Otherwise leave blank.
2100.02,55.39 REF ADV TRANS NUMBER DDB;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>11!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 12, 1994
HELP-PROMPT: Answer must be 1-11 characters in length.
DESCRIPTION: Optional. Required if this is an advance offset line. Enter the Transaction Number of the
document used to issue the advance. Otherwise leave blank.
2100.02,55.4 REF ADV TRANS LINE DDB;2 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 0 and 999, 0 Decimal Digits
DESCRIPTION:
Required if line is advance offset. Otherwise blank.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2100.02,55.41 ADVANCE INDICATOR DDB;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X'?1P) X
LAST EDITED: JUL 12, 1994
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION:
Required if line is advance offset. Otherwise blank.
2100.02,55.46 CAN CODE DDZ;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>9!($L(X)<1)!'(X'?1P) X
LAST EDITED: JUL 12, 1994
HELP-PROMPT: Answer must be 1-9 characters in length.
DESCRIPTION:
This field is not on user screen. For future user only.
2100.02,55.47 UNAPPLIED DEP NUM DDB;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>13!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 12, 1994
HELP-PROMPT: Answer must be 1-13 characters in length.
DESCRIPTION:
Enter unapplied deposit number.
2100.02,55.48 ACCP/DEL DATE DDA;39 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 11, 1994
DESCRIPTION: This field is used to store the ACCP/DEL DATE the user enter for the FMS document. This data
entered will then be used as the default response when editing a code sheet.
2100.02,55.49 INVOICE DATE DDA;40 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 11, 1994
DESCRIPTION: This field is used to store the INVOICE DATE the user entered for the FMS document. This data
entered will then be used as the default response when editing a code sheet.
2100.02,55.5 LOG DATE DDA;41 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 11, 1994
DESCRIPTION: This field is used to store the LOG DATE the user entered for the FMS document. This data entered
will then be used as the default response when editing a code sheet.
2100.02,57.01 CANCELLATION CODE CXA;1 SET (Required)
'R' FOR REPLACEMENT;
'C' FOR CANCEL AND REISSUE;
'X' FOR CANCEL AND DELETE;
LAST EDITED: APR 21, 1994
HELP-PROMPT: please enter 'R' for replacement. 'C' to cancel and reissue. 'X' to cancel and delete
DESCRIPTION:
Required. R for replacement, C to cancel and reissue, or X to cancel and delete.
2100.02,57.02 CHECK NUMBER CXA;2 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>8!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 12, 1994
HELP-PROMPT: Answer must be 1-8 characters in length.
DESCRIPTION: Required. Enter the check number of the check to be cancelled or if this is an EFT cancellation,
the payment sequence number of the EFT payment.
2100.02,57.03 DISBURSING OFFICE CXA;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 12, 1994
HELP-PROMPT: Answer must be 1-4 characters in length.
DESCRIPTION: Required. Enter the disbursing office code for the payment to be canceled. The combination of
payment number and disbursing office code must exist in the Check Header Table and must not have
already been canceled for check cancellations. For EFT cancellations, the combination of schedule
information, EFT number, and disbursing office must exist in the EFT Header Table.
2100.02,57.04 CANCELLATION TYPE CXA;4 SET (Required)
'A' FOR AVAILABLE;
'Y' FOR AVAILABLE AND TO RE-OPEN A REFERENCED DOCUMENT;
'U' FOR UNAVAILABLE WITHOUT RE-OPENING THE REFERENCE DOCUMENT;
LAST EDITED: FEB 16, 1994
DESCRIPTION: Required. A to identify as available, Y if available and to re-open a referenced document, U if
unavailable without re-opening the reference document.
2100.02,57.05 SCHED YEAR CXA;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<2)!'(X?2N) X
LAST EDITED: JUL 13, 1994
HELP-PROMPT: Answer must be 2 characters in length.
DESCRIPTION: Optional. Enter a schedule date if you wish to specify a new schedule date for all payment
associated with this payment. The date may only be specified with checks canceled for reissue.
2100.02,57.06 SCHED MONTH CXA;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(02!($L(X)<1)!'(X?1.2N) X
LAST EDITED: JUL 13, 1994
HELP-PROMPT: Answer must be 1-2 characters in length.
DESCRIPTION:
Refer to SCHED YEAR.
2100.02,57.08 VENDOR NAME CXA;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
LAST EDITED: JUL 13, 1994
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION: System-maintained. The payee name is inferred from the Vendor Table (VEND) based on the vendor
code stored on the Check Header Table (CHKH).
2100.02,57.09 F CHECK AMOUNT CXA;9 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:
System-maintained. The payment amount from the Check or EFT Header Tables.
2100.02,57.1 SCHD FISCAL YEAR CXA;10 FREE TEXT (Required)
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: Required if the EFT cancellation indicator is Y. Prohibited otherwise. Enter the fiscal year
associated with the schedule on which the EFT payment was made.PP
2100.02,57.11 VOUCHER SCHEDULE CAT CXA;11 SET (Required)
'A' FOR CCD+ PAYMENT SCHEDULE;
'C' FOR CTP PAYMENT SCHEDULE;
LAST EDITED: APR 26, 1994
HELP-PROMPT: Enter 'A' for CCD+ Payment Schedule, 'C" for CTP Payment Schedule.
DESCRIPTION: Required if the EFT cancellation indicator is Y. Blank otherwise. Valid categories are A for CCD+
Payment Schedule and C for CTP Payment Schedule.
2100.02,57.12 VOUCHER SCHEDULE TYPE CXA;12 SET (Required)
'T' FOR TRANSPORTATION SCHEDULE;
'M' FOR MISCELLANEOUS SCHEDULE;
LAST EDITED: APR 26, 1994
HELP-PROMPT: Enter 'T' for Transportation Schedule. 'M' for Miscellances Schedule.
DESCRIPTION: Required if the EFT cancellation indicator is Y. Blank otherwise. Valid categories are T for
Transportation Schedule or M Miscellaneous Schedule.
2100.02,57.13 AGENCY SCHEDULE NO CXA;13 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>9!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 13, 1994
HELP-PROMPT: Answer must be 1-9 characters in length.
DESCRIPTION: Required if the EFT cancellation indicator is Y. Prohibited otherwise. Enter the schedule number
on which this payment was disbursed.
2100.02,57.14 EFT IND CXA;14 SET
'Y' FOR AN EFT PAYMENT CANCELLATION;
'N' FOR NOT AN EFT PAYMENT CANCELLATION;
LAST EDITED: APR 26, 1994
HELP-PROMPT: Enter 'Y' for an EFT payment cancellation. Enter 'N' otherwise. Defaults to N.
DESCRIPTION:
Optional. Enter Y for an EFT payment cancellation. Enter N otherwise. Defaults to N.
2100.02,57.15 VENDOR ADDRESS LINE1 CXA;15 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
LAST EDITED: JUL 13, 1994
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
System-maintained.
2100.02,57.16 VENDOR ADDRESS LINE2 CXA;16 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
LAST EDITED: JUL 13, 1994
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
System-maintained.
2100.02,57.17 CITY CXA;17 FREE TEXT
INPUT TRANSFORM: K:$L(X)>19!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 13, 1994
HELP-PROMPT: Answer must be 1-19 characters in length.
DESCRIPTION:
System-maintained.
2100.02,57.18 STATE CODE CXA;18 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<2)!'(X?2U) X
LAST EDITED: JUL 13, 1994
HELP-PROMPT: Answer must be 2 upper case characters in length.
DESCRIPTION:
System-maintained.
2100.02,57.19 ZIP CODE CXA;19 FREE TEXT
INPUT TRANSFORM: K:$L(X)>9!($L(X)<5)!'((X?5N)!(X?9N)) X
LAST EDITED: JUL 13, 1994
HELP-PROMPT: Answer must be 5 or 9 numeric digits in length.
DESCRIPTION:
System-maintained.
2100.02,57.2 TREASURY CANCEL NO CXA;20 FREE TEXT
INPUT TRANSFORM: K:$L(X)>11!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 13, 1994
HELP-PROMPT: Answer must be 1-11 characters in length.
DESCRIPTION:
Required if confirming a cancellation. If left blank, EFT defaults to N.
2100.02,57.21 CONFIRM DATE YEAR CXA;21 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<2)!'(X?2N) X
LAST EDITED: FEB 16, 1994
HELP-PROMPT: Answer must be 2 characters in length.
DESCRIPTION:
Required if confirming a cancellation.
2100.02,57.22 CONFIRM DATE MONTH CXA;22 NUMBER
INPUT TRANSFORM: K:X'?1.2N!(+X<0)!(+X>12) X
LAST EDITED: APR 14, 1994
HELP-PROMPT: Type a Number between 0 and 12, 0 Decimal Digits
DESCRIPTION:
Required if confirming a cancellation.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2100.02,57.23 CONFIRM DATE DAY CXA;23 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
LAST EDITED: FEB 16, 1994
HELP-PROMPT: Answer must be 1-2 characters in length.
DESCRIPTION:
Required if confirming a cancellation.
2100.02,57.24 REASON CODE CXA;24 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X'?1P) X
LAST EDITED: JUL 13, 1994
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION:
Required if confirming a cancellation.
2100.02,57.25 CONFIRM DATE CXA;25 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 CONFIRM DATE the user entered for the FMS document. This selected date
will then be used as the default response in editing the code sheet.
2100.02,58.13 VENDOR ID IFA;13 FREE TEXT
INPUT TRANSFORM: K:$L(X)>9!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 13, 1994
HELP-PROMPT: Answer must be 1-9 characters in length.
DESCRIPTION: Required when the vendor control option is Y on the System Control Option Table, optional
otherwise. If entered, must be valid in the Vendor Table. This code is the payee code of the
actual recipient of an imprest fund distribution. The recipient may be a vendor or employee. This
field may not be changed by a MODIFY document.
2100.02,58.14 VENDOR ADDRESS CODE IFA;14 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 13, 1994
HELP-PROMPT: Answer must be 1-2 characters in length.
DESCRIPTION:
Refer to VENDOR ID.
2100.02,58.18 INC DEC IND IFA;18 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X'?1P) X
LAST EDITED: JUL 13, 1994
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION: Optional if this is an original entry document. Required if this is a modification document.
Defaults to I.
2100.02,58.23 LINE GL ACCOUNT IFA;23 FREE TEXT
INPUT TRANSFORM: K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 13, 1994
HELP-PROMPT: Answer must be 1-4 characters in length.
DESCRIPTION: Optional. Enter the code for the general ledger account to be used in posting this imprest fund
document line.
2100.02,58.26 TRAVEL PURPOSES IFA;26 FREE TEXT
INPUT TRANSFORM: K:$L(X)>5!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 13, 1994
HELP-PROMPT: Answer must be 1-5 characters in length.
DESCRIPTION:
Required when travel type is entered. Optional otherwise.
2100.02,58.27 MILEAGE IFA;27 FREE TEXT
INPUT TRANSFORM: K:$L(X)>8!($L(X)<1)!'(X?1.8N) X
LAST EDITED: FEB 17, 1994
HELP-PROMPT: Answer must be 1-8 characters in length.
DESCRIPTION: Optional. Enter the number of miles for which reimbursement is sought. This field defaults to
zero if left blank. This field may be changed by a MODIFY document.
2100.02,58.28 MILEAGE COST IFA;28 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X
OUTPUT TRANSFORM: S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2)
LAST EDITED: APR 14, 1994
HELP-PROMPT: Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits
DESCRIPTION: Optional. Enter the amount of mileage reimbursement, in dollars and cents. If left blank, this
amount defaults to zero. This field may be changed by a MODIFY document.
2100.02,58.29 TRAVEL ADVANCE NUMB IFA;29 FREE TEXT
INPUT TRANSFORM: K:$L(X)>6!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 13, 1994
HELP-PROMPT: Answer must be 1-6 characters in length.
DESCRIPTION:
Required for travel advances. Blank otherwise.
2100.02,58.3 TRAVEL END YEAR IFA;30 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:
Required if Travel Order is referenced.
2100.02,58.31 TRAVEL END MONTH IFA;31 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:
Required if Travel Order is referenced.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2100.02,58.32 TRAVEL END DAY IFB;1 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:
Required if Travel Order is referenced.
2100.02,58.35 TRVL ADV FLAG FILLER IFC;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X'?1P) X
LAST EDITED: JUL 13, 1994
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION:
This field is not on the user screen. For future use only.
2100.02,60.01 LINE BEG BUDGET FY TBA;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X
LAST EDITED: JUL 13, 1994
HELP-PROMPT: Answer must be 2 characters in length.
DESCRIPTION: Required if budget fiscal years on header is blank. If budget fiscal years was entered on the
header of this document, then only enter the budget fiscal year if this line is to use budget
fiscal year different from that in the header.
2100.02,60.08 LINE GTR NUMBER TBA;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 13, 1994
HELP-PROMPT: Answer must be 1-10 characters in length.
DESCRIPTION: Optional. Enter the number of the GTR. If this ticket was purchased through the GTS, you may
enter contract number. If left blank, it first defaults to the GTR listed on the Ticket Table.
2100.02,60.1 TEXT TYPE TBA;10 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 13, 1994
HELP-PROMPT: Answer must be 1-2 characters in length.
DESCRIPTION: Optional. Enter a valid text type from the Text Type Tabale. The text type will be used to print
the associated clauses on the bill.
2100.02,60.11 INTEREST RATE TBA;11 FREE TEXT
INPUT TRANSFORM: K:$L(X)>7!($L(X)<4)!'(X?1.3N1"."3N&(+X'>100)) X
LAST EDITED: APR 13, 1994
HELP-PROMPT: Answer must be 4-7 characters in length. Typa 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.
2100.02,60.29 TN TRANS CODE TBA;29 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 13, 1994
HELP-PROMPT: Answer must be 1-2 characters in length.
DESCRIPTION: Optional. Enter the Transportation invoice number and line number which paid this ticket. This
field may not be changed by a MODIFY document.
2100.02,60.3 TN TRANS NUMBER TBA;30 FREE TEXT
INPUT TRANSFORM: K:$L(X)>11!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 13, 1994
HELP-PROMPT: Answer must be 1-11 characters in length.
DESCRIPTION:
Refer to TN TRANS CODE.
2100.02,60.31 TN TRANS LINE TBA;31 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 0 and 999, 0 Decimal Digits
DESCRIPTION:
Refer to TN TRANS CODE.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2100.02,60.32 SOURCE OF OVERPAYMENT TBA;32 FREE TEXT
INPUT TRANSFORM: K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 13, 1994
HELP-PROMPT: Answer must be 1-4 characters in length.
DESCRIPTION:
Optional. Enter the source of discovery of overpayment that will be used for this TB document.
2100.02,60.33 OVERPAYMENT TYPE TBA;33 FREE TEXT
INPUT TRANSFORM: K:$L(X)>3!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 13, 1994
HELP-PROMPT: Answer must be 1-3 characters in length.
DESCRIPTION:
Optional. Enter the type of overpayment that will be used for this TB document.
2100.02,60.34 ACTION OUT TBA;34 FREE TEXT
INPUT TRANSFORM: K:$L(X)>3!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 13, 1994
HELP-PROMPT: Answer must be 1-3 characters in length.
DESCRIPTION:
Optional. Enter the action out that will be used for this TB document.
2100.02,61.11 VOID FLAG TNA;11 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X'?1P) X
LAST EDITED: JUL 13, 1994
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION:
Optional. Enter Y if this ticket is void.
2100.02,61.12 GBAT FLAG TNA;12 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X'?1P) X
LAST EDITED: JUL 13, 1994
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION: Optional. Enter Y if this ticket or GTR is for excess baggage. This field is for reporting
purpose only; there is no impact on processing. If left blank, it defaults to N.
2100.02,61.13 TRANS TYPE TNA;13 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 13, 1994
HELP-PROMPT: Answer must be 1-2 characters in length.
DESCRIPTION: Required on original entry if Transaction Type on header is blank. Enter the transaction type
that is appropriate for the dollar amount being entered for the ticket payment.
2100.02,61.15 TO TRANS LINE TNA;15 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S(Y="":"",1:$E("000",$L(Y)+1,3)_Y)
LAST EDITED: FEB 06, 1995
HELP-PROMPT: Type a Number between 1 and 999, 0 Decimal Digits
DESCRIPTION:
Optional. Required if this is an advance offset line.
2100.02,61.25 TRAVEL AGENT REF TNA;25 FREE TEXT
INPUT TRANSFORM: K:$L(X)>12!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 13, 1994
HELP-PROMPT: Answer must be 1-12 characters in length.
DESCRIPTION: Optional, for reporting purposes only. Enter the reference transaction number assigned by the
travel agent.
2100.02,62.18 PARTIAL FINAL MOA;18 SET
'P' FOR PARTIAL;
'F' FOR FINAL;
LAST EDITED: MAR 01, 1994
DESCRIPTION: Required for MZ,SZ,TG and WO. Only used if referencing a requisition. If you know this is a
partial order, enter P; if this is the final order to be placed against the requistion, enter F.
You must enter an F if this order line causes the ordered amount to exceed the requisitioned
amount.
2100.02,62.19 ACCTG DESCRIPTION MOA;19 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
LAST EDITED: JUL 14, 1994
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
Optional, for reporting purposes only. Enter notes about this line.
2100.02,62.2 ASSOC TRAN CODE MOA;20 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 14, 1994
HELP-PROMPT: Answer must be 1-2 characters in length.
DESCRIPTION: Optional for MZ,SZ,TG and WO. If desired, enter the transaction code and decument number of an
obligation document which is to be associated with this line.
2100.02,62.21 ASSOC DOC ID MOA;21 FREE TEXT
INPUT TRANSFORM: K:$L(X)>11!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 14, 1994
HELP-PROMPT: Answer must be 1-11 characters in length.
DESCRIPTION:
Refer to ASSOC TRAN CODE.
2100.02,62.23 C LINE NO MOB;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 01, 1994
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
System-maintained. Not on the user screen.
2100.02,62.24 C REF TRANS CODE MOB;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 14, 1994
HELP-PROMPT: Answer must be 1-2 characters in length.
DESCRIPTION:
System-maintained. Not on user screen.
2100.02,62.25 C REF TRANS NUMBER MOB;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>11!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 14, 1994
HELP-PROMPT: Answer must be 1-11 characters in length.
DESCRIPTION:
System-maintained. Not on the user screen.
2100.02,62.26 C REF TRANS LINE MOB;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 01, 1994
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
System-maintained. Not on user screen.
2100.02,62.28 QUANT INC DEC IND MOB;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X'?1P) X
LAST EDITED: JUL 14, 1994
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION:
System-maintained. Not on user screen.
2100.02,62.29 UNIT OF MEASURE MOB;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 14, 1994
HELP-PROMPT: Answer must be 1-4 characters in length.
DESCRIPTION:
System-maintained. Not on user screen.
2100.02,62.3 COMMODITY CODE MOB;9 FREE TEXT
INPUT TRANSFORM: K:$L(X)>14!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 14, 1994
HELP-PROMPT: Answer must be 1-14 characters in length.
DESCRIPTION:
System-maintained. Not on user screen.
2100.02,62.31 CATLOG PART NUMBER MOB;10 FREE TEXT
INPUT TRANSFORM: K:$L(X)>11!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 14, 1994
HELP-PROMPT: Answer must be 1-11 characters in length.
DESCRIPTION:
System-maintained. Not on user screen.
2100.02,62.32 DESCRIPTION MOB;11 FREE TEXT
INPUT TRANSFORM: K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X
LAST EDITED: JUL 14, 1994
HELP-PROMPT: Answer must be 3-60 characters in length.
DESCRIPTION:
System-maintained. Not on user screen (MO).
2100.02,62.33 UNIT COST MOB;12 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999999.99)!(X<0) X
LAST EDITED: MAR 01, 1994
HELP-PROMPT: Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits
DESCRIPTION:
System-maintained. Not on user screen.
2100.02,62.34 UNIT INC DEC IND MOB;13 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X'?1P) X
LAST EDITED: JUL 14, 1994
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION:
System-maintained. Not on user screen.
2100.02,62.35 EXTENDED COST MOB;14 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999999.99)!(X<0) X
LAST EDITED: MAR 01, 1994
HELP-PROMPT: Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits
DESCRIPTION:
System-maintained. Not on user screen.
2100.02,62.36 C PARTIAL FINAL MOB;15 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X'?1P) X
LAST EDITED: JUL 14, 1994
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION:
System-maintained. Not on user screen.
2100.02,62.37 REVALUATION MOB;16 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X'?1P) X
LAST EDITED: JUL 14, 1994
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION:
System-maintained. Not on user screen.
2100.02,62.38 ITEM CODE MOB;17 FREE TEXT
INPUT TRANSFORM: K:$L(X)>3!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 14, 1994
HELP-PROMPT: Answer must be 1-3 characters in length.
DESCRIPTION:
System-maintained. Not on user screen.
2100.02,62.39 TEXT FLAG MOB;18 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X'?1P) X
LAST EDITED: JUL 14, 1994
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION:
System-maintained. Not on user screen.
2100.02,62.41 BUILDING MOB;20 FREE TEXT
INPUT TRANSFORM: K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 14, 1994
HELP-PROMPT: Answer must be 1-4 characters in length.
DESCRIPTION:
System-maintained. Not on user screen.
2100.02,62.42 ROOM MOB;21 FREE TEXT
INPUT TRANSFORM: K:$L(X)>6!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 14, 1994
HELP-PROMPT: Answer must be 1-6 characters in length.
DESCRIPTION:
System-maintained. Not on user screen.
2100.02,62.43 WAREHOUSE CODE MOB;22 FREE TEXT
INPUT TRANSFORM: K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 14, 1994
HELP-PROMPT: Answer must be 1-4 characters in length.
DESCRIPTION:
System-maintained. Not on user screen.
2100.02,62.44 DISCOUNT AMOUNT MOB;23 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999999.99)!(X<0) X
LAST EDITED: MAR 01, 1994
HELP-PROMPT: Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits
DESCRIPTION:
System-maintained. Not on user screen.
2100.02,62.45 DISCOUNT PERCENT MOB;24 FREE TEXT
INPUT TRANSFORM: K:$L(X)>6!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 14, 1994
HELP-PROMPT: Answer must be 1-6 characters in length.
DESCRIPTION:
System-maintained. Not on user screen.
2100.02,63.01 QUANTITY ORDERED RCA;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 26, 1994
HELP-PROMPT: Type a Number between 0 and 999999999, 0 Decimal Digits
DESCRIPTION: System-maintained for RZ document. Shows quantity that was ordered less quantity received prior
to this receiver.
2100.02,63.02 DESCRIPTION (FMS-RC) RCA;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
LAST EDITED: MAY 26, 1994
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
Optional for RZ. Enter any remarks to describe the shipment.
2100.02,63.03 QUANTITY RECEIVED RCA;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 27, 1994
HELP-PROMPT: Type a Number between 0 and 999999999, 0 Decimal Digits
DESCRIPTION:
Required for RZ. Enter the number of goods received for this commodity line.
2100.02,63.04 QUANTITY ACCEPTED RCA;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 27, 1994
HELP-PROMPT: Type a Number between 0 and 999999999, 0 Decimal Digits
DESCRIPTION: Optional for RZ document. Enter the number of goods received and accepted only if not all units
received are being accepted. If left blank, all units received are marked as accepted.
2100.02,63.05 REC INC DEC IND RCA;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X'?1P) X
LAST EDITED: MAY 27, 1994
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION: Required on RZ documents. Otherwise blank. I to increase quantity received. D to decrease
quantity received. Defaults to I on original entry document.
2100.02,63.06 ACC INC DEC IND RCA;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X'?1P) X
LAST EDITED: JUL 14, 1994
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION: Required on RZ documents. Otherwise blank. I to increase quantity accepted; D to decrease
quantity accepted.
2100.02,63.07 CONDITION-S RCA;7 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:
Optional on RZ documents. Otherwise blank.
2100.02,63.08 C PARTIAL FINAL FLAG RCA;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X'?1P) X
LAST EDITED: MAY 27, 1994
HELP-PROMPT: Answer must be 1 character in length. 'P' for partial receipt. 'F' for final receipt.
DESCRIPTION:
Required on RZ documents. P for partial receipt; F for final receipt.
2100.02,63.09 LOC SEQUENCE RCA;9 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X'?1P) X
LAST EDITED: MAY 27, 1994
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION: Optional on RZ documents. Otherwise blank. Goods returned to: 1 primary location: 2 alternat
location one: 3 alternate location two. If blank, inferred from Loc Number.
2100.02,63.1 LOC NUMBER RCA;10 FREE TEXT
INPUT TRANSFORM: K:$L(X)>9!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: MAY 27, 1994
HELP-PROMPT: Answer must be 1-9 characters in length.
DESCRIPTION: Optional on RZ document. Otherwise blank. If blank and Loc Seq is not blank, it will be inferred
from Loc Seq. If blank and Loc Seq is blank, it will default to last location for stock item.
2100.02,63.11 SHELF LIFE CODE RCA;11 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X'?1P) X
LAST EDITED: MAY 27, 1994
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION:
System-maintained.
2100.02,63.12 SL EXPIRATION DATE RCA;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 27, 1994
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
Optional on RZ documents. Otherwise blank. Enter in format MMYY.
2100.02,63.13 CATALOG PART NUMBER RCA;13 FREE TEXT
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:
Optional on RZ documents. Otherwise blank.
2100.02,63.14 ACCTG TRAN TYPE (RC) RCA;14 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X
LAST EDITED: JUL 15, 1994
HELP-PROMPT: Answer must be 2 characters in length.
DESCRIPTION:
Optional on RZ document. Blank otherwise.
2100.02,66.01 BUY-XORGANIZATION IVA;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>7!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 14, 1994
HELP-PROMPT: Answer must be 1-7 characters in length.
DESCRIPTION:
System-maintained. Derived from CAN code.
2100.02,66.02 BUY SUB ORG IVA;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 14, 1994
HELP-PROMPT: Answer must be 1-2 characters in length.
DESCRIPTION: Optional, used for reporting purposes only. Record the code of the satellite station appropriate
for the buyer for this line. If this is a modification document, the code may be inferred from
the Internal Voucher Line Table.
2100.02,66.03 BUY COST ORGANIZATION IVA;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>7!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 14, 1994
HELP-PROMPT: Answer must be 1-7 characters in length.
DESCRIPTION:
System-maintained. Derived from CAN code.
2100.02,66.04 BUY COST SUB ORG IVA;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 14, 1994
HELP-PROMPT: Answer must be 1-2 characters in length.
DESCRIPTION: Optional, used for reporting purposes only. Record the code of the sub cost center appropriate
for the buyer for this line. The code must be valid in the Satellite Station/Sub Cost Center
Table.
2100.02,66.05 BUY XPROGRAM IVA;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>9!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 14, 1994
HELP-PROMPT: Answer must be 1-9 characters in length.
DESCRIPTION: Optional, when agreement number is entered on the header and the SOPT Job Cost option is Y. If
entered, the FCP/Project must match the FCP/Project on the corresponding Customer Accounting
Distribution Table (CADT) entry. If this field is specified as required in the Project Options
Table (PRJO), then entry is required; if this field is not specified as required in PRJO and, if
left blank, will default from CADT
In all other cases,entry is optional. Enter the code of the FCP/Project appropriate for the
seller for this line. The FCP/Project, in conjunction with the station code, must be valid in the
FCP/Project Table(PGMT).
If this is a modification document, the code may be inferred from the Internal Voucher Line
Table.
2100.02,66.06 BUY BUDGET OBJECT CODE IVA;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 14, 1994
HELP-PROMPT: Answer must be 1-4 characters in length.
DESCRIPTION: Optional, when agreement number is entered on the header and the SOPT Job Cost option is Y. If
entered, the budget object code must match the budget object code on the corrresponding Customer
Accounting Distribution Table (CADT) entry and, if left blank, will be defaulted from CADT.
In all other cases, entry is optional. Enter the budget object code tht best describes the
item(s) for this seller for this line. The code used must be valid in the Budget
Object/Limitation Table (BOCT).
If this is a modification document, the code may be inferred from the Internal Voucher Line
Table.
2100.02,66.07 BUY SUB OBJECT IVA;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 14, 1994
HELP-PROMPT: Answer must be 1-2 characters in length.
DESCRIPTION: Required on original entry if the BOC for this transaction has a Y in the Sub-BOC Option field.
Otherwise, optional.
2100.02,66.08 BUY REPORTING CATEGORY IVA;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 14, 1994
HELP-PROMPT: Answer must be 1-4 characters in length.
DESCRIPTION:
Optional, when agreement number is entered on the header and the SOPT Job Cost option is Y.
2100.02,66.09 BUY JOB NUMBER IVA;9 FREE TEXT
INPUT TRANSFORM: K:$L(X)>8!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 14, 1994
HELP-PROMPT: Answer must be 1-8 characters in length.
DESCRIPTION:
Optional.
2100.02,66.1 INDIRECT COST TRANSFER FLAG IVA;10 SET
'E' FOR TRANSFER OF INDIRECT COSTS SUPPORTED BY EXPENDITURE BURDEN;
'O' FOR TRANSFER OF COSTS SUPPORTED BY OBLIGATION BURDEN;
'N' FOR NONE;
LAST EDITED: APR 05, 1994
DESCRIPTION: Optional. E for transfer of indirect costs supported by expenditure burden; O for transfer of
costs supported by obligation burden; defaults to N.
2100.02,66.11 BUY CLOSED BUDGET FY IVA;11 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<2)!'(X?2N) X
LAST EDITED: APR 05, 1994
HELP-PROMPT: Answer must be 2 characters in length.
DESCRIPTION: Enter the Budget Fiscal Year(s) of the applicable closed fund for which this document was
originally chargeable. This field may not be changed by a MODIFY document.
2100.02,66.12 BUY CLOSED END BUDGET FY IVA;12 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<2)!'(X?2N) X
LAST EDITED: APR 05, 1994
HELP-PROMPT: Answer must be 2 characters in length.
DESCRIPTION: Enter the End Budget Fiscal Year(s) of the applicable closed fund for which this document was
originally chargeable. This field may not be changed by a MODIFY document.
2100.02,66.13 BUY CLOSED FUND IVA;13 FREE TEXT
INPUT TRANSFORM: K:$L(X)>6!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 14, 1994
HELP-PROMPT: Answer must be 1-6 characters in length.
DESCRIPTION:
Enter the fund of the applicable closed fund for which this document was originally chargeable.
2100.02,67 FMSB ACT FMSB;19 SET (Required)
'A' FOR ADD NEW SUBALLOWANCE;
'C' FOR CHANGE FIELDS IN ACTIVE SUBALLOWANCES;
'D' FOR DEACTIVATE A SUBALLOWANCE LINE;
'R' FOR REACTIVATE A DEACTIVATED SUBALLOWANCE LINE;
LAST EDITED: MAY 20, 1994
DESCRIPTION: This field stores FMS action codes. Enter 'A' to add new suballowance. 'C' to change field in
active suballowance. 'D' to deactivate a suballowance line. 'D' to reactivate a deactivated
suballowance line.
2100.02,67.01 OUTSTAND OBLIG PVB;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: JUN 24, 1994
HELP-PROMPT: Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits
DESCRIPTION:
System-maintained.
2100.02,67.02 INVOICE DLN PVB;2 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, CT and CV. Required if Dln Required Flag on TCAT is Y.
2100.02,67.03 INVOICE DLN SEQ PVB;3 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.
2100.02,67.04 RECEIVER DLN PVB;4 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.
2100.02,67.05 RECEIVER DLN SEQ PVB;5 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.
2100.02,67.06 REF VEND ID PVB;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>9!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 14, 1994
HELP-PROMPT: Answer must be 1-9 characters in length.
DESCRIPTION:
System-maintained.
2100.02,67.07 REF VEND ADDRESS COD PVB;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 14, 1994
HELP-PROMPT: Answer must be 1-2 characters in length.
DESCRIPTION:
System-maintained.
2100.02,67.08 REF VEND NAME PVB;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
LAST EDITED: JUL 14, 1994
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
System-maintained.
2100.02,67.1 FMSB A/O FMSB;2 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: Required if the Suballowance Administration Option in the Suballowance Options Table (SAOP) is Y
for the fund. If the Budget Options Fund Table (AFND) is not set up to infer administration/staff
office, this field may be left blank and inferred from the station if it is coded. If left blank
and the Budget Option Table (AOPT)is being used to infer administration/staff office, the A/O
office is inferred from the Budget Option Table (AOPT). Must not be coded if the option is N. The
A/O code must be valid in the A/O Office Table (DVSN) for the budget fiscal year. If you are
changing existing lines, this code must match the previously assigned A/O code.
2100.02,67.101 FMSB A/O 2 FMSB1;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: AUG 19, 1994
HELP-PROMPT: Answer must be 1-4 characters in length.
DESCRIPTION: Required if this administration/staff office does not allow by station(i.e., the Allowance
Station Option in the Administration/Staff Office Table (DVSN) is N) and the Budget Option Table
(AOPT) is not used to infer the administration/staff office; or if the Budget Option Tabale
(AOPT) is used to infer the administration/staff office and all of the element required to access
the administration/staff office on the Budget Option Table (AOPT) are not specified as allowance
dimensions on the Administration/Staff Office Table(DVSN); optional otherwise. The code must be
valid in the Administration/Staff Office Table(DVSN) for the budget fiscal year. If left blank
and the Budget Option Table(AOPT) is not being used to infer administration/staff office, the
administration/staff if inferred from the station code if it is coded. If left blank and the
Budget Options Table (AOPT) is being used to infer administration/staff office, the
administration/staff office is inferred from the Budget Option Table (AOPT). If you are changing
existing lines, this code must match the previously assigned administration/staff office code.
2100.02,67.102 FMSB STATION 2 FMSB1;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>7!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: AUG 19, 1994
HELP-PROMPT: Answer must be 1-7 characters in length.
DESCRIPTION: Required if the Allowance Station Option in the Administration/Staff Office Table (DVSN) is Y for
this administration/staff office. Must be coded if the option is N. The code must be valid in the
Station/Cost Center Table (ORGN) for the budget fiscal year. If the program code is entered, then
the station code must also be entered.
2100.02,67.11 FMSB 1ST QTR I/D FMSB;10 SET
'I' FOR INCREASE;
'D' FOR DECREASE;
LAST EDITED: MAY 20, 1994
HELP-PROMPT: Enter I for Increase, D for decrease.
DESCRIPTION: Optional if the Suballowance Increase/Decrease Amount field is coded. Defaults to I. Blank
otherwise.
2100.02,67.1101 FMSB 2ND QTR I/D FMSB;14 SET
'I' FOR INCREASE;
'D' FOR DECREASE;
LAST EDITED: MAY 20, 1994
HELP-PROMPT: Enter I for Increase, D for decrease.
DESCRIPTION: Optional if the Suballowance Increase/Decrease Amount field is coded. Defaults to I. Blank
otherwise.
2100.02,67.1102 FMSB 3RD QTR I/D FMSB;15 SET
'I' FOR INCREASE;
'D' FOR DECREASE;
LAST EDITED: MAY 20, 1994
HELP-PROMPT: Enter I for Increase, D for Decrease.
DESCRIPTION: Optional if the Suballowance Increase/Decrease Amount field is coded. Defaults to I. Blank
otherwise.
2100.02,67.1103 FMSB 4TH QTR FMSB;16 SET
'I' FOR INCREASE;
'D' FOR DECREASE;
LAST EDITED: MAY 20, 1994
HELP-PROMPT: Enter I for Increase, D for Decrease.
DESCRIPTION: Optional if the Suballowance Increase/Decrease Amount field is coded. Defaults to I. Blank
otherwise.
2100.02,67.12 FMSB DESCRIPTION FMSB;17 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3)!'(X'?.E1."~".E) X
LAST EDITED: JUL 15, 1994
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION: Optional. Enter the alphanumeric budget line description. If left blank and the FCP/PRJ exists at
the suballowance level, the FCP/PRJ Name will be inferred from the FCP/Project Table (PGMT). If
the FCP/Prj does not exist at the suballowance level, the limitation name will be inferred.
2100.02,67.13 FMSB FTES/QTY FMSB;18 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUL 15, 1994
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION: Optional. Enter the number of Full-Time Equivalent (FTE) positions or quantity of items budgeted
in this line. You can enter up to 7 digits (whole units).
2100.02,67.14 FMSB PROGRAM FMSB;20 FREE TEXT
INPUT TRANSFORM: K:$L(X)>8!($L(X)<2)!'(X'?1P.E) X
LAST EDITED: AUG 19, 1994
HELP-PROMPT: Answer must be 2-8 characters in length.
DESCRIPTION: Required if the Allowance Program Option in the Administration/Staff Office Table(DVSN) is Y for
this administration/staff office. Must not be coded if the option is N. The code must be valid in
the table specified by the Allowance Program Definition (on the Fund Table (FUND)) for the budget
fiscal year. For example, if the program definition is the higher level program classification
PCLS, the code must be a valid program class in the Program Class Table (PCLS). If the program
definition is PGMT, the program code, in conjunction with the station code, must exist in the
FCP/Project Table (PGMT). If you are changing existing lines, this code must match the previously
assigned program (if one was previously coded).
2100.02,67.141 FMSB PROGRAM 2 FMSB1;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>8!($L(X)<2)!'(X'?1P.E) X
LAST EDITED: AUG 19, 1994
HELP-PROMPT: Answer must be 2-8 characters in length.
DESCRIPTION: Required if the Allowance Program Option in the Administration /Staff Office Table (DVSN) is Y
for this administration/staff office. Must not be coded if the option is N. The code must be
valid in the table specified by the Allowance Program Definition (on the Fund Table (FUND)) for
the budget fiscal year. For example, if the program definition is the higher level program
classification PCLS, the code must be valid program class in the Program Class Table (PCLS). If
the program definition is PGMT, the program code, in conjunction with the station code, must
exist in the FCP/Project Table(PGMT). If you are changing existing lines, this code must match
the previously assigned program code (if one was previously coded).
2100.02,67.15 FMSB QUARTER FMSB;21 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>4)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JUL 22, 1994
HELP-PROMPT: Type a Number between 1 and 4, 0 Decimal Digits
DESCRIPTION: Required. Enter the quarter from which you are transferring funds. The appropriate allowance
amount (posted, approved, or pending, as specified by the Amount Type indicator), is decreased by
the amount entered on the line.
CROSS-REFERENCE: ^^TRIGGER^2100.02^67.1501
1)= X ^DD(2100.02,67.15,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^GECS(2100,D0,"FMSLIN",D1,"FMSB1")):^("FM
SB1"),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(2100.02,67.15,1,1,1.4)
1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^GECS(2100,D0,"FMSLIN"
,D1,"FMSB1")):^("FMSB1"),1:"") S X=$P(Y(1),U,3)=""
1.4)= S DIH=$S($D(^GECS(2100,DIV(0),"FMSLIN",DIV(1),"FMSB1")):^("FMSB1"),1:""),DIV=X S $P(^("FMSB1"
),U,3)=DIV,DIH=2100.02,DIG=67.1501 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE CONDITION)= FMSB QUARTER 2=""
CREATE VALUE)= FMSB QUARTER
DELETE VALUE)= NO EFFECT
FIELD)= FMSB QUARTER 2
2100.02,67.1501 FMSB QUARTER 2 FMSB1;3 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>4)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JUL 22, 1994
HELP-PROMPT: Type a Number between 1 and 4, 0 Decimal Digits
DESCRIPTION: Required. Enter the quarter to which you are transferring funds. The amount field (posted,
approved, or pending) in the TO record corresponding to the amount field in the FROM record is
updated. If posted or approved funds in a given quarter are moved into a record that has not been
posted or approved through that quarter, the posted or approved indicator (as appropriate) is
changed to a value of T (transfer) on the Allowance Table (ALLW).
NOTES: TRIGGERED by the FMSB QUARTER field of the LINE sub-field of the GENERIC CODE SHEET File
2100.02,67.16 FMSB TRANSFER IND FMSB;22 SET
'Y' FOR YEAR TO DATE FUND;
'A' FOR APPROVED FUND;
LAST EDITED: JUL 22, 1994
DESCRIPTION: Required. Enter either Y to indicate the transfer of YTD Posted funds, A to indicate the transfer
of approved funds, or P to indicate the transfer of pending funds. When transferring posted funds,
the equivalent amount of approved funds are automatically transferred.
2100.02,67.2 FMSB STATION FMSB;1 FREE TEXT (Required)
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 25, 1994
HELP-PROMPT: Answer must be 1-7 characters in length.
DESCRIPTION: Required if the Suballowance Station Option in the Suballowance Option Table (SAOP) is Y for the
fund. Must not be coded if the option if N. The code must be valid in the Station/Cost Center
Table (ORGN) for the budget fiscal year and the code must be the Allowance Station specified in the
table. If the FCP/PRJ code is entered, then the station code must also be entered. If you are
changing existing lines, this code must match the previously assigned station code (if one was
previously entered).
2100.02,67.3 FMSB REF STN FMSB;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 15, 1994
HELP-PROMPT: Answer must be 1-7 characters in length.
DESCRIPTION: Required if the Suballowance Station Option in the Suballowance Options Table (SAOP) is Y for the
referenced allowance line.
2100.02,67.4 FMSB FCP/PRJ FMSB;4 FREE TEXT
INPUT TRANSFORM:K:$L(X)>9!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 15, 1994
HELP-PROMPT: Answer must be 1-9 characters in length.
DESCRIPTION: Required if the Suballowance FCP/PRJ Option in the Suballowance Option Table (SAOP) is Y for the
fund. Must not be entered if the option is N. The FCP/PRJ code, in conjunction with the station
code, must be valid in the FCP/Project Table (PGMT) for the budget fiscal year. If you are changing
existing lines, this code must match the previously assigned program code (if one was previously
coded).
2100.02,67.401 FMSB FCP/PRJ 2 FMSB1;6 FREE TEXT
INPUT TRANSFORM:K:$L(X)>9!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: AUG 19, 1994
HELP-PROMPT: Answer must be 1-9 characters in length.
DESCRIPTION: Required if the Suballowance FCP/Project Option for this allotment is Y. Must not be coded if the
option is N. The FCP/Project, in conjunction with the station code, must be valid in the
FCP/Project Table (PGMT) for the budget fiscal year, and must be the Allowance FCP/Project
specified in the table.
2100.02,67.5 FMSB OBJECT CLASS FMSB;5 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: Required if the Suballowance Limitation Option in the Suballowance Options Table (SAOP) is Y for
the fund. Blank otherwise.
2100.02,67.501 FMSB OBJECT CLASS 2 FMSB1;5 FREE TEXT
INPUT TRANSFORM:K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: AUG 19, 1994
HELP-PROMPT: Answer must be 1-4 characters in length.
DESCRIPTION: Required if the Allowance LMT option in the Administration/Staff Office Table (DVSN) is Y for this
administration/staff office. Must not be coded if the option is N. The code must be valid in the
Budget Object/Limitation Table (BOCT) for the budget fiscal year.
2100.02,67.6 FMSB OVR FMSB;6 SET
'C' FOR FULL CONTROL;
'P' FOR PRESENCE CONTROL;
'*' FOR DELETE ANY EXISTING SPENDING CONTROL OVERRIDE;
LAST EDITED: MAY 16, 1994
DESCRIPTION: Optional. If the Spending Control Override field is left blank, spending documents will infer the
default Spending Control level specified on the Sulallowance Option Table (SAOP). Coding this field
will override the default spending control level. Valid values are: (C) - Full Control is in effect
for the budget line, (P) - Presence Control is in effect for the budget line and asterisk (*) -
Delete any existing Spending Control Override value and return control to the Fund Table value.
2100.02,67.7 FMSB AI FMSB;7 SET
'N' FOR NONDIRECT;
'D' FOR DIRECT;
LAST EDITED: MAY 16, 1994
DESCRIPTION: Required. Enter the appropriation indicator using one of the following codes:
N To specify suballowance budget line is a nondirect line item
appropriation.
D To specify suballowance budget line is a direct line item
appropriation.
If left blank the appropriation indicator will default to N.
2100.02,67.8 FMSB REVISED SUBALL AMT FMSB;8 FREE TEXT
INPUT TRANSFORM:K:$L(X)>12!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 15, 1994
HELP-PROMPT: Answer must be 1-12 characters in length.
DESCRIPTION: System-maintained. This field reflects the revised suballowance amount (i.e., any previously
entered budget amounts plus or minus the changes specified in the Suballowance Increase/Decrease
Amount field). When the Pending/Approval/Posting Indicator is PN or RJ, this field represents
pending amounts; when the indicator is AP or DA, this field represents approved amounts; and when
the indicator is PA, PP, or DP, this field represents posted amounts.
2100.02,67.9 FMSB SUBALL 1ST QTR AMT FMSB;9 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<1) X
LAST EDITED: MAY 16, 1994
HELP-PROMPT: Type a Dollar Amount between 1 and 999999999, 2 Decimal Digits
DESCRIPTION:
Refer to FMSB REVISED SUBALL AMT.
2100.02,67.901 FMSB SUBALL 2ND QTR AMT FMSB;11 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999)!(X<0) X
LAST EDITED: MAY 20, 1994
HELP-PROMPT: Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits
DESCRIPTION:
Refer to FMSB REVISED SUBALL AMT.
2100.02,67.902 FMSB SUBALL 3RD QTR AMT FMSB;12 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999)!(X<0) X
LAST EDITED: MAY 20, 1994
HELP-PROMPT: Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits
DESCRIPTION:
Refer to FMSB REVISED SUBALL AMT.
2100.02,67.903 FMSB SUBALL 4TH QTR AMT FMSB;13 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999)!(X<0) X
LAST EDITED: MAY 20, 1994
HELP-PROMPT: Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits
DESCRIPTION:
Refer to FMSB REVISED SUBALL AMT.
2100.02,340.1 ACCTG TRANS TYPE 340;1 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.
DESCRIPTION:
This is the transcaction type for the document.
2100.02,340.2 OBJ REV SRCE 340;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>4!($L(X)<4) X
LAST EDITED: MAY 12, 1994
HELP-PROMPT: Answer must be 4 characters in length.
DESCRIPTION:
This is the revenue source. Accounts Receivable documents using this field will always use "ARRV".
2100.02,340.3 AGREEMENT NUMBER 340;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>15!($L(X)<15) X
LAST EDITED: JAN 30, 1995
HELP-PROMPT: Answer must be 15 characters in length.
2100.02,420 SEGMENT ID LIN 0;2 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 LIN for FMS LINE SEGMENT.
2100.02,420.1 SEGMENT ID A 0;4 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 LINE SEGMENT.
2100.02,420.2 SEGMENT ID B 0;6 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 LINE SEGMENT.
2100.02,420.26 SEGMENT ID Z 0;10 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 LINE SEGMENT in alphabetical order.
2100.02,420.3 SEGMENT ID C 0;8 FREE TEXT
INPUT TRANSFORM:K:$L(X)>3!($L(X)<3) X
LAST EDITED: DEC 15, 1993
HELP-PROMPT: Answer must be 3 characters in length.
DESCRIPTION:
SEGMENT ID for FMS line segment.
2100.02,421 SEGMENT DELIMITER LIN 0;3 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 LIN for FMS LINE SEGMENT.
2100.02,421.1 SEGMENT DELIMITER A 0;5 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 LINE SEGMENT.
2100.02,421.2 SEGMENT DELIMITER B 0;7 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 LINE SEGMENT.
2100.02,421.26 SEGMENT DELIMITER Z 0;11 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 LINE SEGMENT.
2100.02,421.3 SEGMENT DELIMITER C 0;9 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 LINE SEGMENT.
2100.02,1600 INTERFACE RECORD IDENT #1 FBFEE2;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<10)!'(X?.UN) X
LAST EDITED: JUN 09, 1994
HELP-PROMPT: Enter 4 character prefix followed by 6 character number. Fill with "X" when required.
DESCRIPTION:
This is the 4 character prefix followed by a 6 digit number of the interface record.
2100.02,1601 INTERFACE RECORD IDENT #2 FBFEE2;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<10)!'(X?.UN) X
LAST EDITED: JUN 09, 1994
HELP-PROMPT: Enter 4 character prefix followed by 6 character number. Fill with "X" when required.
DESCRIPTION:
This is the 4 character prefix followed by a 6 digit number of the interface record.
2100.02,1602 GROUP IDENTIFICATION #1 FBFEE2;3 FREE TEXT (Required)
INPUT TRANSFORM:K:$L(X)>7!($L(X)<7)!'(X?3N.UN) X
LAST EDITED: JUN 09, 1994
HELP-PROMPT: Enter 3 digit station number followed by 4 digit record prefix.
DESCRIPTION:
This is the 3 digit station number followed by a 4 digit record prefix identifcation number 1.
2100.02,1603 GROUP IDENTIFICATION #2 FBFEE2;4 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<7)!'(X?3N.UN) X
LAST EDITED: JUN 09, 1994
HELP-PROMPT: Enter 3 digit station number followed by 4 digit record prefix.
DESCRIPTION:
This is the 3 digit station number followed by a 4 digit record prefix identification number 2.
2100.02,1604 GROUP IDENTIFICATION #3 FBFEE2;5 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<7)!'(X?3N.UN) X
LAST EDITED: JUN 09, 1994
HELP-PROMPT: Enter 3 digit station number followed by 4 digit record prefix.
DESCRIPTION:
This is the 3 digit station number followed by a 4 digit record prefix identification number 3.
2100,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].
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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].
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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.
2100,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.
2100,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.
2100,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.
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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.
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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.
2100,1531 (3) ALPHA CODE FOR ITEM 2 FBAMS1;2 FREE TEXT (Required)
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.
2100,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
2100,1533 (5) MEDICAL DISTRICT NUMBER FBAMS1;4 FREE TEXT (Required)
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.
2100,1534 NAME OF COMMUNITY NH FBAMS1;5 FREE TEXT (Required)
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
2100,1535 CITY OF COMMUNITY NH FBAMS1;6 FREE TEXT (Required)
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.
2100,1536 STATE CODE OF CNH FBAMS1;7 FREE TEXT (Required)
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
2100,1537 COUNTY CODE OF CNH FBAMS1;8 FREE TEXT (Required)
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
2100,1538 (10) LEVEL OF CARE FBAMS1;9 SET (Required)
'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
2100,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
2100,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.
2100,1541 NH INSPECTED/ACCREDITED FBAMS1;12 SET (Required)
'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
2100,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.
2100,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
2100,1544 CERT.MEDICARE/MEDICAID FBAMS1;15 SET (Required)
'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
2100,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
2100,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.
2100,1547 DATE OF LAST ASSESSMENT FBAMS1;18 DATE (Required)
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
2100,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.
2100,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
2100,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.
2100,1551 (19) ZIP CODE OF NH FBAMS1;22 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>5!($L(X)<5) X
LAST EDITED: SEP 21, 1990
HELP-PROMPT: Answer must be 5 characters in length.
2100,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.
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,1600 FEE TRANSACTION DATE FBFEE2;1 FREE TEXT (Required)
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.
2100,1601 FEE REFERENCE NUMBER FBFEE2;2 FREE TEXT (Required)
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.
2100,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.
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,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
2100,2021 PAID TRANSMISSION NUMBER PRCCCA2;27 NUMBER (Required)
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.
2100,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.
2100,2023 MONTH PRCCCA2;29 NUMBER (Required)
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
2100,2024 DAY PRCCCA2;30 NUMBER (Required)
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.
2100,2025 YEAR PRCCCA2;31 FREE TEXT (Required)
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.
2100,2026 NO. OF 10-2418A TRANSMITTED PRCCCA2;32 NUMBER (Required)
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
2100,2027 TOTAL PAY AND NON PAY VISITS PRCCCA2;33 NUMBER (Required)
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
2100,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.
2100,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.
2100,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.
2100,2200.01 DATE EVALUATED GECOHBHC2;1 DATE (Required)
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
2100,2200.02 STATE CODE GECOHBHC2;2 FREE TEXT (Required)
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.
2100,2200.03 COUNTY CODE GECOHBHC2;3 FREE TEXT (Required)
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.
2100,2200.04 ZIP CODE GECOHBHC2;4 FREE TEXT (Required)
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.
2100,2200.05 ELIGIBILITY GECOHBHC2;5 SET (Required)
'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.
2100,2200.06 BIRTH YEAR GECOHBHC2;6 FREE TEXT (Required)
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.
2100,2200.07 PERIOD OF SERVICE GECOHBHC2;7 SET (Required)
'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.
2100,2200.08 SEX GECOHBHC2;8 SET (Required)
'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.
2100,2200.09 RACE/ETHNICITY GECOHBHC2;9 SET (Required)
'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.
2100,2200.1 MARITAL STATUS GECOHBHC2;10 SET (Required)
'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.
2100,2200.11 USUAL LIVING ARRANGEMENTS GECOHBHC2;11 SET (Required)
'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.
2100,2200.12 LAST AGENCY PROVIDING CARE GECOHBHC2;12 SET (Required)
'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.
2100,2200.13 TYPE OF AGENCY GECOHBHC2;13 SET (Required)
'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.
2100,2200.14 ACTION GECOHBHC2;14 SET (Required)
'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.
2100,2200.15 PRIMARY REASON FOR REJECTION GECOHBHC2;15 FREE TEXT (Required)
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.
2100,2200.16 DISPOSITION OF REJECTION GECOHBHC2;16 SET (Required)
'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.
2100,2200.17 PATIENTS FULL NAME GECOHBHC2;17 FREE TEXT (Required)
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.
2100,2200.18 SOCIAL SECURITY NUMBER GECOHBHC2;18 FREE TEXT (Required)
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.
2100,2200.19 HBHC ADMISSION DATE GECOHBHC2;19 DATE (Required)
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.
2100,2200.2 PRIMARY DIAGNOSIS GECOHBHC2;20 FREE TEXT (Required)
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.
2100,2200.21 VISION (WITH LENSES IF WORN) GECOHBHC2;21 SET (Required)
'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.
2100,2200.22 HEARING (WITH AID IF WORN) GECOHBHC2;22 SET (Required)
'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.
2100,2200.23 EXPRESSIVE COMMUNICATION GECOHBHC2;23 SET (Required)
'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.
2100,2200.24 RECEPTIVE COMMUNICATION GECOHBHC2;24 SET (Required)
'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.
2100,2200.25 BATHING/SHOWER ACTIVITY GECOHBHC2;25 SET (Required)
'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.
2100,2200.26 DRESSING ACTIVITY GECOHBHC2;26 SET (Required)
'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.
2100,2200.27 USING TOILET ACTIVITY GECOHBHC2;27 SET (Required)
'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.
2100,2200.28 TRANSFER ACTIVITY GECOHBHC2;28 SET (Required)
'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.
2100,2200.29 EATING ACTIVITY GECOHBHC2;29 SET (Required)
'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.
2100,2200.3 WALKING ACTIVITY GECOHBHC2;30 SET (Required)
'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.
2100,2200.31 CONTINENCE (BOWEL) GECOHBHC2;31 SET (Required)
'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.
2100,2200.32 CONTINENCE (BLADDER) GECOHBHC2;32 SET (Required)
'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.
2100,2200.33 MOBILITY (WITH MECHANICAL AID) GECOHBHC2;33 SET (Required)
'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.
2100,2200.34 ADAPTIVE TASKS GECOHBHC2;34 SET (Required)
'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.
2100,2200.35 BEHAVIOR PROBLEMS GECOHBHC2;35 SET (Required)
'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.
2100,2200.36 DISORIENTATION/MEMORY/IMPAIR GECOHBHC2;36 SET (Required)
'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.
2100,2200.37 DISTURBANCE OF MOOD GECOHBHC2;37 SET (Required)
'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.
2100,2200.38 CAREGIVER LIMITATIONS GECOHBHC2;38 SET (Required)
'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.
2100,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.
2100,2200.4 PROVIDER #, DIGIT 1 GECOHBHC2A;1 SET (Required)
'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.
2100,2200.41 PROVIDER #, DIGIT 2 GECOHBHC2A;2 SET (Required)
'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.
2100,2200.42 PROVIDER #, DIGIT 3 GECOHBHC2A;3 SET (Required)
'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.
2100,2200.43 DATE OF VISIT GECOHBHC2A;4 DATE (Required)
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.
2100,2200.44 PATIENTS LAST NAME GECOHBHC2A;5 FREE TEXT (Required)
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.
2100,2200.45 TYPE OF VISIT GECOHBHC2A;6 SET (Required)
'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.
2100,2200.5 DISCHARGE DATE GECOHBHC2A;7 DATE (Required)
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.
2100,2200.51 DISCHARGE STATUS GECOHBHC2A;8 SET (Required)
'1' FOR TRANSFERRED TO OTHER PROVIDER;
'2' FOR ANTICIPATED INSTITUTIONALIZATION;
'3' FOR FAMILY OR SELF CARE/NO REGULAR SOURCE;
'4' FOR DIED ON HBHC;
'6' FOR MOVED AWAY/LOST TO CONTACT;
'9' FOR NOT DETERMINED;
OUTPUT TRANSFORM: I $D(GECSOT) S:Y="" Y=" "
LAST EDITED: JUL 17, 1990
DESCRIPTION:
Used by the Hospital Based Home Care code sheet.
2100,2200.52 TRANSFER DESTINATION GECOHBHC2A;9 SET (Required)
'1' FOR VA PROVIDED CARE;
'2' FOR NON VA CARE;
'3' FOR VA FEE BASIS/CONTRACT;
OUTPUT TRANSFORM: I $D(GECSOT) S:Y="" Y=" "
LAST EDITED: JUL 17, 1990
DESCRIPTION:
Used by the Hospital Based Home Care code sheet.
2100,2200.53 TYPE OF AGENCY GECOHBHC2A;10 SET (Required)
'1' FOR GENERAL HOSPITAL;
'2' FOR SPECIALTY HOSPITAL;
'3' FOR NURSING HOME;
'4' FOR RES CARE FACILITY/DOM;
'5' FOR HOSPICE;
'6' FOR COMMUNITY BASED SERVICE;
'9' FOR NOT DETERMINED;
OUTPUT TRANSFORM: I $D(GECSOT) S:Y="" Y=" "
LAST EDITED: JUL 17, 1990
DESCRIPTION:
Used by the Hospital Based Home Care code sheet.
2100,2200.54 PAD 2 SPACES GECOHBHC2A;11 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>2!($L(X)<2) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=" "
LAST EDITED: JUL 18, 1990
HELP-PROMPT: Answer must be 2 characters in length.
DESCRIPTION:
Used by the Hospital Based Home Care code sheet.
2100,2200.55 PAD HBHC 73 SPACES GECOHBHC2A;12 FREE TEXT
INPUT TRANSFORM: K:$L(X)>73!($L(X)<1) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=Y_$E(" ",$
L(Y)+1,73)
LAST EDITED: SEP 20, 1990
HELP-PROMPT: Answer must be 1-73 characters in length.
2100,2201.01 TRANSACTION NUMBER GECOFORM2;1 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<111)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUL 18, 1990
HELP-PROMPT: Type a Number between 111 and 999, 0 Decimal Digits
DESCRIPTION:
Form and Form Letter Requisition Code Sheet - LOG 1.
2100,2201.02 TYPE GECOFORM2;2 SET (Required)
'R' FOR REGULAR SUBMISSION;
'E' FOR EMERGENCY;
'A' FOR ACCOUNTABLE FORM;
'S' FOR OFF SCHEDULE;
'I' FOR INSUFFICIENT INITIAL DISTRIBUTION;
OUTPUT TRANSFORM: I $D(GECSOT) S:Y="" Y=" "
LAST EDITED: JUL 18, 1990
DESCRIPTION:
Form and Form Letter Requisition Code Sheet - LOG 1.
2100,2201.03 REQUISITION NUMBER GECOFORM2;3 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: JUL 18, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
Form and Form Letter Requisition Code Sheet - LOG 1.
2100,2201.04 FTS TELEPHONE NUMBER GECOFORM2;4 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<1111111)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=" "_$E("0000000",$L(Y)+1,7)_Y
LAST EDITED: SEP 20, 1990
HELP-PROMPT: Type a Number between 1111111 and 9999999, 0 Decimal Digits
DESCRIPTION:
Form and Form Letter Requisition Code Sheet - LOG 1.
2100,2201.06 DEPOT STOCK NUMBER GECOFORM2;6 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>6!($L(X)<1) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: NOV 01, 1990
HELP-PROMPT: Answer must be 1-6 characters in length.
DESCRIPTION:
Form and Form Letter Requisition Code Sheet - LOG 1.
2100,2201.08 UNIT OF USE GECOFORM2;7 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,2)_Y
LAST EDITED: JUL 18, 1990
HELP-PROMPT: Answer must be 1-2 characters in length.
DESCRIPTION:
Form and Form Letter Requisition Code Sheet - LOG 1.
2100,2201.09 QUANTITY ORDERED GECOFORM2;8 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000000",$L(Y)+1,8)_Y
LAST EDITED: JUL 18, 1990
HELP-PROMPT: Type a Number between 0 and 99999999, 0 Decimal Digits
DESCRIPTION:
Form and Form Letter Requisition Code Sheet - LOG 1.
2100,2201.1 PAD FORM 7 SPACES GECOFORM2;9 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>7!($L(X)<7) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,7)_Y
LAST EDITED: JUL 18, 1990
HELP-PROMPT: Answer must be 7 characters in length.
DESCRIPTION:
Form and Form Letter Requisition Code Sheet - LOG 1.
2100,2201.11 PAD FORM 35 SPACES (AT END) GECOFORM2;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>35!($L(X)<1) X
LAST EDITED: SEP 20, 1990
HELP-PROMPT: Answer must be 1-35 characters in length.
2100,2401 ASSISTED (FULL CARE)-DIAL. MCAMS2A;1 NUMBER
DIALYSIS/BEDS/FACILITIES ASSISTED (FULL CARE)
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2402 LIMITED/SELF CARE DIALY. MCAMS2A;2 NUMBER
DIALYSIS/BEDS/FACILITIES: LIMITED/SELF-CARE
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2403 HOME (SELF) DIALY. TRAINING MCAMS2A;3 NUMBER
DIALYSIS/BEDS/FACILITIES: HOME (SELF) DIALYSIS TRAINING
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2404 MAINT. DIALY. SHIFTS/DAY MCAMS2A;4 NUMBER
MAINT. DIALYSIS SHIFTS PER WORK DAY
INPUT TRANSFORM: K:+X'=X!(X>9.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("00",$L(Y)+1,2)_Y
LAST EDITED: JUN 29, 1990
HELP-PROMPT: Type a Number between 0 and 9.9, 1 Decimal Digit
2100,2405 OPERATING DAYS PER WEEK MCAMS2A;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,2406 REC. CARE FROM RPTG. UNIT MCAMS2A;6 NUMBER
PATIENTS RECEIVING CARE BEGINNING OF PERIOD DIRECTLY FROM RPTG. UNIT
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2407 CARE IN NON-VA UNIT MCAMS2A;7 NUMBER
PATIENTS RECEIVING CARE BEGINNING OF PERIOD IN NON-VA UNIT
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2408 ADMITTED FOR FIRST TIME(ADD.) MCAMS2A;8 NUMBER
ADDITIONS DURING REPORTING PERIOD: ADMITTED FOR FIRST TIME
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2409 TRANS. FROM OTHER VA DIALY. MCAMS2A;9 NUMBER
ADDITIONS DURING REPORTING PERIOD: TRANSFERRED FROM OTHER VA DIALYSIS PROGRAM
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2410 RETURNING/ OTHER VA/NON VA MCAMS2A;10 NUMBER
ADDITIONS DURING REPORTING PERIOD: RETURNING FROM OTHER VA & NON-VA PROGRAMS
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2411 RETURNING-TRANSPLANTATION MCAMS2A;11 NUMBER
ADDITIONS DURING REPORTING PERIOD: RETURNING AFTER TRANSPLANTATION
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2412 OTHER ADM./RE-ADM. (DIALY.) MCAMS2A;12 NUMBER
ADDITIONS DURING REPORTING PERIOD: OTHER ADMISSIONS/READMISSIONS
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2413 DEATHS (DIALY.) MCAMS2A;13 NUMBER
LOSSES: DEATHS
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2414 RECOVERED KIDNEY FUNCTION MCAMS2A;14 NUMBER
LOSSES: RECOVERED KIDNEY FUNCTION
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2415 RECEIVED TRANSPLANT MCAMS2A;15 NUMBER
LOSSES: RECEIVED TRANSPLANT
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2416 TRANSFERRED TO OTHER VA DIAL. MCAMS2A;16 NUMBER
LOSSES: TRANSFERRED TO OTHER VA DIALYSIS PROGRAM
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2417 DISCHARGED TO NON-VA MCAMS2A;17 NUMBER
LOSSES: DISCHARGED TO NON-VA CARE
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2418 OTHER LOSSES (DIALY.) MCAMS2A;18 NUMBER
LOSSES: OTHER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2419 ACUTE ASSISTED HEMODIALYSIS MCAMS2A;19 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2420 ACUTE ASSISTED PERI. DIALY. MCAMS2A;20 NUMBER
ACUTE ASSISTED PEARITONEAL DIALYSIS
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2421 CHRONIC ASSISTED HEMO. INP. MCAMS2A;21 NUMBER
CHRONIC ASSISTED HEMODIALYSIS INPATIENT
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2422 CHRONIC ASSISTED HEMO. OUTPT. MCAMS2A;22 NUMBER
CHRONIC ASSISTED HEMODIALYSIS OUTPATIENT
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2423 CHRONIC ASSISTED PERI. INP. MCAMS2A;23 NUMBER
CHRONIC ASSISTED PERITONEAL DIALYSIS INPATIENT
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2424 CHRONIC ASSISTED PERI. OUTP. MCAMS2A;24 NUMBER
CHRONIC ASSISTED PERITONEAL DIALYSIS OUTPATIENT
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2425 LIMITED/SELF CARE HEMO. INP. MCAMS2A;25 NUMBER
LIMITED/SELF CARE HEMODIALYSIS INPATIENT
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2426 LIMITED/SELF CARE HEMO. OUTPT. MCAMS2A;26 NUMBER
LIMITED/SELF CARE HEMODIALYSIS OUTPATIENT
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2427 LIMITED/SELF CARE PERI. INP. MCAMS2A;27 NUMBER
LIMITED/SELF CARE PERITONEAL DIALYSIS INPATIENT
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2428 LIMITED/SELF CARE PERI. OUTPT. MCAMS2A;28 NUMBER
LIMITED/SELF CARE PERITONEAL DIALYSIS OUTPATIENT
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2429 HEMO. INP. (HOME TRAINING) MCAMS2A;29 NUMBER
HOME (SELF) DIALYSIS TRAINING: HEMODIALYSIS INPATIENT
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2430 HEMO OUTPT. (HOME TRAINING) MCAMS2A;30 NUMBER
HOME (SELF) DIALYSIS TRAINING: HEMODIALYSIS OUTPATIENT
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2431 PERI. INP. (HOME TRAINING) MCAMS2A;31 NUMBER
HOME (SELF) DIALYSIS TRAINING: PERITONEAL DIALYSIS INPATIENT
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2432 PERI. OUTPT. (HOME TRAINING) MCAMS2A;32 NUMBER
HOME (SELF) DIALYSIS TRAINING: PERITONEAL DIALYSIS OUTPATIENT
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2433 HEMO. (HOME DIALYSIS) MCAMS2A;33 NUMBER
HOME DIALYSIS: HEMODIALYSIS
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2434 PERI. (HOME DIALYSIS) MCAMS2A;34 NUMBER
HOME DIALYSIS: PERITONEAL DIALYSIS
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2435 TOTAL DIALY. PAT. REMAINING MCAMS2A;35 NUMBER
TOTAL DIALYSIS PATIENT REMAINING: END OF PERIOD
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2436 CONTRACT/FEE BASIS (HEMO.) MCAMS2A;36 NUMBER
CONTRACT/FEE BASIS HEMODIALYSIS
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2437 CONTRACT/FEE BASIS (PERI.) MCAMS2A;37 NUMBER
CONTRACT/FEE BASIS PERITONEAL DIALYSIS
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2438 CONTRACT/FEE BASIS (TOTAL) MCAMS2A;38 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2439 S-C FOR RENAL DISEASE MCAMS2A;39 NUMBER
NUMBER S-C FOR RENAL DISEASE
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2440 S-C OTHER (DIALY.) MCAMS2A;40 NUMBER
NUMBER S-C FOR OTHER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2441 NON-VA PATIENTS TREATED MCAMS2A;41 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2442 AWAITING TRANSPLANT MCAMS2A;42 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2443 ACUTE ASS. HEMO. TREATMENTS MCAMS2A;43 NUMBER
DIALYSIS CENTER TREATMENTS: ACUTE ASSISTED HEMODIALYSIS
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2444 CHRONIC ASS. HEMO. TREATMENTS MCAMS2A;44 NUMBER
DIALYSIS CENTER TREATMENTS: CHRONIC ASSISTED HEMODIALYSIS
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2445 LIMITED/SELF HEMO. TREATMENTS MCAMS2A;45 NUMBER
DIALYSIS CENTER TREATMENTS: LIMITED/SELF HEMODIALYSIS
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2446 ACUTE ASS. PERI. TREATMENTS MCAMS2A;46 NUMBER
DIALYSIS CENTER TREATMENTS: ACUTE ASSISTED PERITONEAL DIALYSIS
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2447 CHRONIC ASS. PERI. TREATMENTS MCAMS2A;47 NUMBER
DIALYSIS CENTER TREATMENTS: CHRONIC ASSISTED PERITONEAL DIALYSIS
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2448 LIMITED/SELF PERI. TREATMENTS MCAMS2A;48 NUMBER
DIALYSIS CENTER TREATMENTS: LIMITED/SELF PERITONEAL DIALYSIS
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2449 TOTAL DIALY. CENTER TREATMENTS MCAMS2A;49 NUMBER
TOTAL DIALYSIS CENTER TREATMENTS
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2450 AVG. TREATMENTS/BED/WEEK MCAMS2A;50 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2451 HEMO. TRAINING TREATMENTS MCAMS2A;51 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2452 PERIDIAL. TRAINING TREATMENTS MCAMS2A;52 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2453 HOME HEMODIALYSIS TREATMENTS MCAMS2A;53 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2454 HOME PERIDIAL. TREATMENTS MCAMS2A;54 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2455 TREATMENTS ON NON-VETERANS MCAMS2A;55 NUMBER
DIALYSIS TREATMENTS PERFORMED ON NON-VETERANS
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2456 HOME HEMO. (INIT. TRN. COMP.) MCAMS2A;56 NUMBER
PATIENTS COMPLETING INITIAL TRAINING: HOME HEMODIALYSIS
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2457 LIMITED/SELF HEMO. INIT. TRNG. MCAMS2A;57 NUMBER
PATIENTS COMPLETING INITIAL TRAINING: LIMITED/SELF HEMODIALYSIS
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2458 HOME PERI. INIT. TRNG. COMP. MCAMS2A;58 NUMBER
PATIENTS COMPLETING INITIAL TRAINING: HOME PERITONEAL DIALYSIS
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2459 LIMITED/SELF INIT. TRNG. MCAMS2B;1 NUMBER
PATIENTS COMPLETING INITIAL TRAINING: LIMITED/SELF PERITONEAL DIALYSIS
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2460 TISSUE TYPING TESTS MCAMS2B;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2461 FEE PAID (HEMO.-OWN FACILITY) MCAMS2B;3 NUMBER
CONTRACT/FEE BASIS HEMO. TREATMENTS PAID FOR BY YOUR FACILITY
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2462 FEE PAID (PERI.-OWN FACILITY) MCAMS2B;4 NUMBER
CONTRACT/FEE BASIS PERIDIAL. TREATMENTS PAID FOR BY YOUR FACILITY
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2463 FEE PAID (HEMO.-OTHER FAC.) MCAMS2B;5 NUMBER
CONTRACT/FEE BASIS HEMO. TREATMENTS PAID FOR BY ANOTHER FACILITY
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2464 FEE PAID (PERI.-OTHER FAC.) MCAMS2B;6 NUMBER
CONTRACT/FEE BASIS PERIDIAL. TREATMENTS PAID FOR BY ANOTHER FACILITY
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2473 TOTAL CRF. PATIENTS DIALYZED MCAMS2B;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
2100,2474 DIALYZED-DIABETIC MCAMS2B;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2475 DIALYZED-FRACTION DIABETIC MCAMS2B;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9.999)!(X<0)!(X?.E1"."4N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$J(Y,1,3),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 29, 1990
HELP-PROMPT: Type a Number between 0 and 9.999, 3 Decimal Digits
2100,2476 DIALYZED-AGE 55 OR OVER MCAMS2B;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2477 DIALYZED-FRACTION 55 OR OVER MCAMS2B;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9.999)!(X<0)!(X?.E1"."4N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$J(Y,1,3),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 29, 1990
HELP-PROMPT: Type a Number between 0 and 9.999, 3 Decimal Digits
2100,2478 DIALYZED-90 DAYS OR LESS MCAMS2B;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2479 DIAL.-DEATHS 90 DAYS OR LESS MCAMS2B;13 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2480 DIALY.-FRACTION CRF < 91 DAYS MCAMS2B;14 NUMBER
DIALYZED- FRACTION (CASE FAT RATE) 90 DAYS OR LESS
INPUT TRANSFORM: K:+X'=X!(X>9.999)!(X<0)!(X?.E1"."4N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$J(Y,1,3),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 29, 1990
HELP-PROMPT: Type a Number between 0 and 9.999, 3 Decimal Digits
2100,2481 DIALYZED OVER 90 DAYS MCAMS2B;15 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2482 DIAL.-DEATHS OVER 90 DAYS MCAMS2B;16 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2483 FRACTION CRF > 90 DAYS MCAMS2B;17 NUMBER
FRACTION (CASE FAT RATE) OVER 90 DAYS
INPUT TRANSFORM: K:+X'=X!(X>9.999)!(X<0)!(X?.E1"."4N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$J(Y,1,3),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 29, 1990
HELP-PROMPT: Type a Number between 0 and 9.999, 3 Decimal Digits
2100,2484 DIALYZED-TOTAL ARF PATIENTS MCAMS2B;18 NUMBER
TOTAL ACUTE RENAL FAILURE DIALYZED
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
2100,2485 DIALYZED-DEATHS (ARF) MCAMS2B;19 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2486 DIALYZED-FRACTION CRF-ARF MCAMS2B;20 NUMBER
DIALYZED-FRACTION (CASE FAT RATE) ARF
INPUT TRANSFORM: K:+X'=X!(X>9.999)!(X<0)!(X?.E1"."4N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$J(Y,1,3),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 29, 1990
HELP-PROMPT: Type a Number between 0 and 9.999, 3 Decimal Digits
2100,2500 BEDS MCAMS2;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2501 ADMISSIONS MCAMS2;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2502 DISCHARGES-MEDICINE MCAMS2;3 NUMBER
LOSSES: DISCHARGES
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2503 TRANSFERS OUT TO ANOTHER ICU MCAMS2;4 NUMBER
LOSSES: TRANSFERS OUT TO ANOTHER ICU
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2504 TRANSFERS OUT TO WARD MCAMS2;5 NUMBER
LOSSES: TRANSFERS OUT TO WARD
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2505 DEATHS IN ICU MCAMS2;6 NUMBER
LOSSES: DEATHS IN ICU
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2506 PATIENTS REMAINING MCAMS2;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2507 PATIENT DAYS OF CARE (M) MCAMS2;8 NUMBER
PATIENT DAYS OF CARE
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
2100,2508 CARDIOPULMONARY RESUSCITATIONS MCAMS2;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
2100,2509 DESIGNATED BEDS (MED/SUR) MCAMS2;10 NUMBER
DESIGNATED BEDS IN GENERAL PURPOSE UNITS: MEDICAL/SURGICAL
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,6)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2510 DESIGNATED BEDS (MED/COR) MCAMS2;11 NUMBER
DESIGNATED BEDS IN GENERAL PURPOSE UNITS: MEDICAL/CORONARY
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2511 DESIGNATED BEDS (MED/SURG/COR) MCAMS2;12 NUMBER
DESIGNATED BEDS IN GENERAL PURPOSE UNITS: MED/SURG/CORONARY
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2512 FTEE-PHYSICIANS MCAMS2;13 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 29, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
2100,2513 FTEE-PHYSICIAN ASSISTANTS MCAMS2;14 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 29, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
2100,2514 FTEE-NURSES MCAMS2;15 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 29, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
2100,2515 FTEE-NURSING ASSISTANTS MCAMS2;16 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 29, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
2100,2516 FTEE-NON PROFESSIONAL MCAMS2;17 NUMBER
FTEE-NON PROFESSIONAL PERSONNEL
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 29, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
2100,2517 FTEE-ADMINISTRATIVE MCAMS2;18 NUMBER
FTEE-ADMINISTRATIVE PERSONNEL
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 29, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
2100,2518 FTEE-OTHER MCAMS2;19 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 29, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
2100,2519 FTEE-DIALYSIS TECH/THERAPIST MCAMS2;20 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 29, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
2100,2520 FTEE-SOCIAL WORKERS MCAMS2;21 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 29, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
2100,2521 FTEE-DIETITIANS MCAMS2;22 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 29, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
2100,2522 FTEE-TECHNICIANS MCAMS2;23 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 29, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
2100,2523 FTEE-CLERKS MCAMS2;24 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 29, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
2100,2601 AUTHORIZED FTEE MCAMS2C;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 29, 1990
HELP-PROMPT: Type a Number between 0 and 99.9, 1 Decimal Digit
2100,2602 ACTUAL FTEE MCAMS2C;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,".",1)_$P(Y,".",2),Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 29, 1990
HELP-PROMPT: Type a Number between 0 and 99.9, 1 Decimal Digit
2100,2603 ON DUTY HOURS-AUDIOLOGIST MCAMS2C;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2604 ON DUTY HRS-SPEECH PATHOLOGIST MCAMS2C;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2605 HEARING AID EVALUATIONS MCAMS2C;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2606 ASS. OF SOCIAL EFFICIENCY MCAMS2C;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2607 CONSULTS-AUDIOLOGY MCAMS2C;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2608 AURAL REHAB PATIENTS MCAMS2C;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2609 CASES COMPLETED MCAMS2C;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2610 CASE HISTORIES-AUDIOLOGY MCAMS2C;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2611 SCREENING-AUDIOLOGY MCAMS2C;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2612 PURE TONE AIR CONDUCTION MCAMS2C;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2613 PURE TONE BONE CONDUCTION MCAMS2C;13 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2614 SPEECH AUDIOMETRY MCAMS2C;14 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2615 STENGER TESTS MCAMS2C;15 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2616 TONE DECAY MCAMS2C;16 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2617 OTO-IMMITTANCE MCAMS2C;17 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2618 EVOKED POTENTIALS MCAMS2C;18 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2619 ENG MCAMS2C;19 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2620 OTHER SITE OF LESION TESTS MCAMS2C;20 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2621 CENTRAL AUDITORY TESTS MCAMS2C;21 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2622 AURAL REHAB TESTS MCAMS2C;22 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2623 DIAGNOSTIC REPORT MCAMS2C;23 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2624 TREATMENT PLANNING-AUDIOLOGY MCAMS2C;24 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2625 AURAL REHAB MCAMS2C;25 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2626 FAMILY COUNSELING-AUDIOLOGY MCAMS2C;26 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2627 PROGRESS NOTES-AUDIOLOGY MCAMS2C;27 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2628 OTHER CONTACTS-AUDIOLOGY MCAMS2C;28 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2629 PROSTHETICS EVALUATION-AUD. MCAMS2C;29 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2630 ROUNDS-AUDIOLOGY MCAMS2C;30 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2631 EQUIP. MAINT. CALIBRATION-AUD. MCAMS2C;31 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2632 HEARING CONSERVATION MCAMS2C;32 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2633 STUDENT TRAINING-AUDIOLOGY MCAMS2C;33 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2634 ON STATION TRAVEL-AUDIOLOGY MCAMS2C;34 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2635 OFF STATION TRAVEL-AUDIOLOGY MCAMS2C;35 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2636 CONSULTS-SPEECH PATHOLOGY MCAMS2C;36 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2637 PATIENTS WAITING FOR THERAPY MCAMS2C;37 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2638 CASE HISTORIES-SPEECH PATH. MCAMS2C;38 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2639 SCREENING-SPEECH PATHOLOGY MCAMS2C;39 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2640 COMP. LANG. COG EVALUATIONS MCAMS2C;40 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2641 SPEC. LIMITED LANG. COG EVAL. MCAMS2C;41 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2642 ORAL MOTOR STRUCTURAL EVAL. MCAMS2C;42 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2643 VOICE RESONANCE ARTIC. EVAL. MCAMS2C;43 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2644 FLUENCY EVALUATIONS MCAMS2C;44 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2645 DYSPHAGIA EVALUATIONS MCAMS2C;45 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2646 DIAGNOSTIC REPORTS MCAMS2C;46 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2647 TREATMENT PLANNING-SP. PATH. MCAMS2C;47 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2648 THERAPY SESSION PLANNING MCAMS2C;48 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2649 TREATMENT-SPEECH PATHOLOGY MCAMS2C;49 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2650 FAMILY COUNSELING-SPEECH PATH. MCAMS2C;50 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2651 PROGRESS NOTES-SPEECH PATH. MCAMS2C;51 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2652 OTHER CONTACTS-SPEECH PATH. MCAMS2C;52 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2653 PROSTHETICS EVAL.-SPEECH PATH. MCAMS2C;53 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2654 ROUNDS-SPEECH PATHOLOGY MCAMS2C;54 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2655 EQUIP. MAIN. CAL.-SPEECH MCAMS2C;55 NUMBER
EQUIPMENT MAINTENANCE CALIBRATION-SPEECH PATHOLOGY
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2656 STUDENT TRAINING-SPEECH PATH. MCAMS2C;56 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2657 ON STATION TRAVEL-SPEECH PATH. MCAMS2C;57 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2658 OFF STATION TRAVEL-SPEECH PATH MCAMS2C;58 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,2659 ADMINISTRATIVE HOURS MCAMS2C;59 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2660 MEETINGS MCAMS2D;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2661 CONTINUING EDUCATION RECEIVED MCAMS2D;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2662 OTHER TRAINING RECEIVED MCAMS2D;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2663 TRAINING GIVEN MCAMS2D;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2664 SERVICE STATUS MCAMS2D;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,2665 RESEARCH HOURS MCAMS2D;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2666 SECRETERIAL/CLER. HRS. MCAMS2D;7 NUMBER
SECRETERIAL/CLERICAL HOURS WORKED
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2701 TOTAL CATHERIZATIONS MCAMS2E;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
2100,2702 EVENTUALLY HAD CARDIAC SURGERY MCAMS2E;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2703 LEFT HEART PROCEDURES MCAMS2E;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2704 RIGHT HEART PROCEDURES MCAMS2E;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2705 TEMPORARY PACEMAKERS MCAMS2E;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2706 PERMANENT PACEMAKERS MCAMS2E;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2707 ANGIOPLASTY MCAMS2E;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2708 STREPTOKINASE MCAMS2E;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2709 DIGITAL CONTRAST MCAMS2E;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2710 ELECTROPHYSIOLOGY MCAMS2E;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2711 RESEARCH USE OF CCL MCAMS2E;11 NUMBER
RESEARCH USE OF CCL (# OF PATIENTS)
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2712 USE OTHER THAN CARDIOLOGY MCAMS2E;12 NUMBER
SHARED USE OF CCL BY OTHER THAN CARDIOLOGY (# OF PATIENTS)
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2713 USE BY OTHER FEDERAL AGENCIES MCAMS2E;13 NUMBER
SHARED USE OF CCL BY OTHER FEDERAL AGENCIES (# OF PATIENTS)
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2714 USE BY PRIVATE SECTOR MCAMS2E;14 NUMBER
SHARED USE OF CCL BY PRIVATE SECTOR (# OF PATIENTS)
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2715 MYOCARDIAL INFARCTION MCAMS2E;15 NUMBER
COMPLICATIONS WITHIN 24 HOURS: MYOCARDIAL INFARCTION
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2716 STROKE MCAMS2E;16 NUMBER
COMPLICATIONS WITHIN 24 HOURS: STROKE
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2717 PERFORATION MCAMS2E;17 NUMBER
COMPLICATIONS WITHIN 24 HOURS: PERFORATION
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2718 PERIPHERAL VASCULAR MCAMS2E;18 NUMBER
COMPLICATIONS WITHIN 24 HOURS: PERIPHERAL VASCULAR
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2719 OTHER MAJOR COMPLICATIONS MCAMS2E;19 NUMBER
COMPLICATIONS WITHIN 24 HOURS: OTHER MAJOR
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2720 DEATHS (CARDIAC CATH) MCAMS2E;20 NUMBER
DEATHS WITHIN 24 HOURS
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2801 S/C PATIENTS ON HOME OXYGEN MCAMS2F;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2802 S/C PATIENTS DROPPED MCAMS2F;2 NUMBER
S/C PATIENTS DROPPED FROM PROGRAM
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2803 S/C PATIENTS STARTED MCAMS2F;3 NUMBER
S/C NEW PATIENTS STARTED ON HOME OXYGEN
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2804 N/S/C PATIENTS ON HOME OXYGEN MCAMS2F;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2805 N/S/C PATIENTS DROPPED MCAMS2F;5 NUMBER
N/S/C PATIENTS DROPPED FROM PROGRAM
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2806 N/S/C NEW PATIENTS STARTED MCAMS2F;6 NUMBER
N/S/C NEW PATIENTS STARTED ON HOME OXYGEN
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2807 PATIENTS ON COMPRESSED GAS MCAMS2F;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2808 PATIENTS ON LIQUID OXYGEN MCAMS2F;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2809 PATIENTS ON RENTED CONCEN. MCAMS2F;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2810 PATIENTS ON OWNED CONCEN. MCAMS2F;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2811 OXY. DEPENDENT VENTILATOR PAT. MCAMS2F;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,2812 QUARTERLY COST-COMPRESSED GAS MCAMS2F;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
2100,2813 QUARTERLY COSTS-LIQUID OXYGEN MCAMS2F;13 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
2100,2814 QUARTERLY COSTS-RENTED CONCEN. MCAMS2F;14 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
2100,2815 QUAT. COSTS-VA OWNED CONCEN. MCAMS2F;15 NUMBER
QUARTERLY COSTS-VA OWNED CONCEN.
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
2100,2816 QUARTERLY COSTS-VENTILATORS MCAMS2F;16 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: JUN 27, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
2100,2998 MC SEGMENT MODIFIER MCAMS2Z;2 FREE TEXT
SEGMENT MODIFIER
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1) X
OUTPUT TRANSFORM: I $D(GECSOT),Y="" S Y=" "
LAST EDITED: MAY 18, 1990
HELP-PROMPT: Answer must be 1 character in length.
2100,2999 J41-43 ZEROES MCAMS2Z;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>12!($L(X)<12)!'(X?12"0") X
LAST EDITED: OCT 22, 1990
HELP-PROMPT: Answer must be 12 characters in length.
2100,3000 TOTAL ANESTHETICS ADMINISTERED SRAMS3;1 NUMBER
TOTAL ANESTHETICS ADMINISTERED (01)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S($L(Y)=5:Y,$L(Y)=4:"0"_Y,$L(Y)=3:"00"_Y,$L(Y)=2:"000"_Y,$L(Y)=1:"0000"_Y,1:"0000
0")
LAST EDITED: SEP 17, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
2100,3001 TOTAL INHALATION (02) SRAMS3;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:"0"_Y,$L(Y)=2:"00"_Y,$L(Y)=1:"000"_Y,1:"0000")
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3002 TOTAL INTRAVENOUS (03) SRAMS3;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:"0"_Y,$L(Y)=2:"00"_Y,$L(Y)=1:"000"_Y,1:"0000")
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3003 TOTAL INFILTRATION (04) SRAMS3;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:"0"_Y,$L(Y)=2:"00"_Y,$L(Y)=1:"000"_Y,1:"0000")
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3004 TOTAL FIELD BLOCK (05) SRAMS3;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:"0"_Y,$L(Y)=2:"00"_Y,$L(Y)=1:"000"_Y,1:"0000")
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3005 TOTAL NERVE BLOCK (06) SRAMS3;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:"0"_Y,$L(Y)=2:"00"_Y,$L(Y)=1:"000"_Y,1:"0000")
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3006 TOTAL SPINAL OR EPIDURAL (07) SRAMS3;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:"0"_Y,$L(Y)=2:"00"_Y,$L(Y)=1:"000"_Y,1:"0000")
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3007 TOTAL TOPICAL (08) SRAMS3;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:"0"_Y,$L(Y)=2:"00"_Y,$L(Y)=1:"000"_Y,1:"0000")
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3008 TOTAL RECTAL (09) SRAMS3;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:"0"_Y,$L(Y)=2:"00"_Y,$L(Y)=1:"000"_Y,1:"0000")
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3009 TOTAL OTHER (10) SRAMS3;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:"0"_Y,$L(Y)=2:"00"_Y,$L(Y)=1:"000"_Y,1:"0000")
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3010 SURG, ANES, TOTAL SRAMS3;11 NUMBER
NUMBER OF ANESTHETICS ADMINISTERED BY ANESTHESIOLOGISTS (11)
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:"0"_Y,$L(Y)=2:"00"_Y,$L(Y)=1:"000"_Y,1:"0000")
LAST EDITED: OCT 10, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3011 SURG, ANES, # DEATHS SRAMS3;12 NUMBER
NUMBER OF DEATHS WHEN ADMINISTERED BY ANESTHESIOLOGIST (12)
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:"0"_Y,1:"00")
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3012 SURG, NURSE, TOTAL SRAMS3;13 NUMBER
NUMBER OF ANESTHETICS ADMINISTERED BY NURSE ANESTHETISTS (13)
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:"0"_Y,$L(Y)=2:"00"_Y,$L(Y)=1:"000"_Y,1:"0000")
LAST EDITED: MAY 17, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3013 SURG, NURSE, DEATHS SRAMS3;14 NUMBER
NUMBER OF DEATHS WHEN ADMINISTERED BY NURSE ANESTHETISTS (14)
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:"0"_Y,1:"00")
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3014 SURG, OTHER, TOTAL SRAMS3;15 NUMBER
NUMBER OF ANESTHETICS ADMINISTERED BY OTHERS (15)
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:"0"_Y,$L(Y)=2:"00"_Y,$L(Y)=1:"000"_Y,1:"0000")
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3015 SURG, OTHER, DEATHS SRAMS3;16 NUMBER
NUMBER OF DEATHS WHEN ADMINISTERED BY OTHERS (16)
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:"0"_Y,1:"00")
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3016 DIAG, ANES, TOTAL SRAMS3;17 NUMBER
NUMBER OF ANESTHETICS ADMINISTERED BY ANESTHESIOLOGISTS (17)
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:"0"_Y,$L(Y)=2:"00"_Y,$L(Y)=1:"000"_Y,1:"0000")
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3017 DIAG, ANES, DEATHS SRAMS3;18 NUMBER
NUMBER OF DEATHS WHEN ADMINISTERED BY ANESTHESIOLOGISTS (18)
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:"0"_Y,1:"00")
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3018 DIAG, NURSE, TOTAL SRAMS3;19 NUMBER
NUMBER OF ANESTHETICS ADMINISTERED BY NURSE ANESTHETISTS (19)
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:"0"_Y,$L(Y)=2:"00"_Y,$L(Y)=1:"000"_Y,1:"0000")
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3019 DIAG, NURSE, DEATHS SRAMS3;20 NUMBER
NUMBER OF DEATHS WHEN ADMINISTERED BY NURSE ANESTHETISTS (20)
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:"0"_Y,1:"00")
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3020 DIAG, OTHER, TOTAL SRAMS3;21 NUMBER
NUMBER OF ANESTHETICS ADMINISTERED BY OTHERS (21)
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:"0"_Y,$L(Y)=2:"00"_Y,$L(Y)=1:"000"_Y,1:"0000")
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3021 DIAG, OTHER, DEATHS SRAMS3;22 NUMBER
NUMBER OF DEATHS WHEN ADMINISTERED BY OTHERS (22)
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:"0"_Y,1:"00")
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3022 TOTAL NUMBER OF DEATHS (23) SRAMS3;23 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S($L(Y)=3:Y,$L(Y)=2:"0"_Y,$L(Y)=1:"00"_Y,1:"000")
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,3023 DEATHS, INHALATION SRAMS3;24 NUMBER
DEATHS WITH PRINCIPAL TECHNIQUE, INHALATION (24)
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:"0"_Y,1:"00")
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3024 DEATHS, IVS SRAMS3;25 NUMBER
DEATHS WITH PRINCIPAL TECHNIQUE, INTRAVENOUS (25)
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:"0"_Y,1:"00")
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3025 DEATHS, INFILTRATION SRAMS3;26 NUMBER
DEATHS WITH PRINCIPAL TECHNIQUE, INFILTRATION (26)
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:"0"_Y,1:"00")
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3026 DEATHS, FIELD SRAMS3;27 NUMBER
DEATHS WITH PRINCIPAL TECHNIQUE, FIELD BLOCK (27)
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:"0"_Y,1:"00")
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3027 DEATHS, NERVE SRAMS3;28 NUMBER
DEATHS WITH PRINCIPAL TECHNIQUE, NERVE BLOCK (28)
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:"0"_Y,1:"00")
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3028 DEATHS, SPINAL SRAMS3;29 NUMBER
DEATHS WITH PRINCIPAL TECHNIQUE, SPINAL OR EPIDURAL (29)
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:"0"_Y,1:"00")
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3029 DEATHS, TOPICAL SRAMS3;30 NUMBER
DEATHS WITH PRINCIPAL TECHNIQUE, TOPICAL (30)
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:"0"_Y,1:"00")
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3030 DEATHS, RECTAL SRAMS3;31 NUMBER
DEATHS WITH PRINCIPAL TECHNIQUE, RECTAL (31)
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:"0"_Y,1:"00")
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3031 DEATHS, OTHER SRAMS3;32 NUMBER
DEATHS WITH PRINCIPAL TECHNIQUE, OTHER (32)
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:"0"_Y,1:"00")
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3032 ANES CAUSE DEATH, DEFINITE SRAMS3;33 NUMBER
DEATHS IN WHICH ANESTHETICS DEFINITELY CONTRIBUTED (33)
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:"0"_Y,1:"00")
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3033 ANES CAUSE DEATH, MAYBE SRAMS3;34 NUMBER
DEATHS IN WHICH ANESTHETICS POSSIBLY CONTRIBUTED (034)
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:"0"_Y,1:"00")
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3034 ANES CAUSE DEATH, NO WAY JOSE SRAMS3;35 NUMBER
DEATHS IN WHICH ANESTHETICS DID NOT CONTRIBUTE (35)
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S($L(Y)=3:Y,$L(Y)=2:"0"_Y,$L(Y)=1:"00"_Y,1:"000")
LAST EDITED: MAY 24, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,3100 UNIT DOSES ADMIN 01 PSGAMS3;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000000",$L(Y)+1,8)_Y
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 99999999, 0 Decimal Digits
2100,3101 AVG COST PER DOSE 02 PSGAMS3;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: MAY 24, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,3102 WARD STOCK 03 PSGAMS3;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 11, 1990
HELP-PROMPT: Type a Number between 0 and 99999999, 0 Decimal Digits
2100,3103 AUTO REPLENISHMENT 04 PSGAMS3;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 11, 1990
HELP-PROMPT: Type a Number between 0 and 99999999, 0 Decimal Digits
2100,3104 AVG COST PER DOSE 05 PSGAMS3;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 11, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,3105 WARD STOCK 06 PSGAMS3;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 11, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
2100,3106 AUTO REPLENISHMENT 07 PSGAMS3;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 11, 1990
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
2100,3107 AVG COST PER UNIT 08 PSGAMS3;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 11, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3108 TOTAL NUMBER 09 PSGAMS3;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 11, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
2100,3109 AVERAGE COST 10 PSGAMS3;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 11, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3110 ADMIXTURES 11 PSGAMS3;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 11, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
2100,3111 AVG UNIT COST 12 PSGAMS3;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 11, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3112 PIGGY BACKS 13 PSGAMS3;13 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 11, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
2100,3113 AVG UNIT COST 14 PSGAMS3;14 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 11, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3114 HYPERAL FLUIDS 15 PSGAMS3;15 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 11, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
2100,3115 AVG UNIT COST 16 PSGAMS3;16 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 11, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3116 FLUIDS AND ADMIN SETS 17 PSGAMS3;17 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 11, 1990
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
2100,3117 AVG UNIT COST 18 PSGAMS3;18 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 11, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3118 CONTROLLED SUBS ORDERS 19 PSGAMS3;19 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 11, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3119 AVG UNIT COST 20 PSGAMS3;20 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: AUG 18, 1994
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3120 REGULAR 21 PSGAMS3;21 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 11, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
2100,3121 OVERTIME 22 PSGAMS3;22 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 11, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
2100,3122 REGULAR 23 PSGAMS3;23 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 11, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
2100,3123 OVERTIME 24 PSGAMS3;24 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 11, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
2100,3201 OUTPT SERVICE CONNECTED 001 PSAMS3A;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
2100,3202 A&A HOUSEBOUND 002 PSAMS3A;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
2100,3203 ALL OTHER 003 PSAMS3A;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
2100,3204 METHADONE 004 PSAMS3A;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
2100,3205 MEDICATION REQUESTS 005 PSAMS3A;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
2100,3206 FEE BASIS 006 PSAMS3A;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
2100,3207 STAFF 007 PSAMS3A;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
2100,3208 NEW 008 PSAMS3A;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
2100,3209 REFILL 009 PSAMS3A;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
2100,3210 WINDOW 010 PSAMS3A;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
2100,3211 MAILOUT 011 PSAMS3A;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
2100,3212 AVG RX INGREDIENT COST 012 PSAMS3A;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3213 REGULAR 013 PSAMS3A;13 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
2100,3214 OVERTIME 014 PSAMS3A;14 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
2100,3215 REGULAR 015 PSAMS3A;15 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
2100,3216 OVERTIME 016 PSAMS3A;16 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
2100,3217 TOTAL # OF RXs 017 PSAMS3A;17 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
2100,3218 TOTAL COST OF RXs 018 PSAMS3A;18 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
2100,3219 MEDICATION 019 PSAMS3A;19 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 999999999, 0 Decimal Digits
2100,3220 MEDICAL SUPPLIES 020 PSAMS3A;20 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
2100,3221 OTHER SUPPLIES 021 PSAMS3A;21 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
2100,3222 BLOOD FRACT & REL PDCTS 022 PSAMS3A;22 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
2100,3223 RESIDENTS & INTERNS 023 PSAMS3A;23 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
2100,3224 OTHER EDUCATIONAL 024 PSAMS3A;24 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
2100,3225 VOL SERVICE 025 PSAMS3A;25 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
2100,3226 OTH PTNT ORIENT ACT 026 PSAMS3A;26 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
2100,3227 INV PROTOCOLS 027 PSAMS3A;27 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
2100,3228 INVESTIG DRUG RXs 028 PSAMS3A;28 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
2100,3500 LESS THAN 25 (001) SOWKAM257;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3501 25-34 (002) SOWKAM257;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3502 35-44 (003) SOWKAM257;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3503 45-55 (004) SOWKAM257;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
LAST EDITED: SEP 17, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3504 56-64 (005) SOWKAM257;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3505 65-74 (006) SOWKAM257;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3506 75-84 (007) SOWKAM257;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3507 85 & UP (008) SOWKAM257;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3508 TO INDIVIDUAL LIVING (009) SOWKAM257;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3509 TO HOSPITAL (010) SOWKAM257;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3510 OTHER INSTITUTION CARE (011) SOWKAM257;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3511 DEATH (012) SOWKAM257;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3512 LESS THAN 1 YR. (013) SOWKAM257;13 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: MAY 25, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3513 1-2 (014) SOWKAM257;14 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: MAY 25, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3514 3-5 YRS (015) SOWKAM257;15 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: MAY 25, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3515 OVER 5 YRS. (016) SOWKAM257;16 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: FEB 01, 1991
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3516 LESS THAN 25 (017) SOWKAM257;17 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
LAST EDITED: MAR 06, 1991
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3517 25-34 (018) SOWKAM257;18 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3518 35-44 (019) SOWKAM257;19 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3519 45-54 (020) SOWKAM257;20 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3520 55-64 (021) SOWKAM257;21 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3521 65-74 (022) SOWKAM257;22 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3522 75-84 (023) SOWKAM257;23 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3523 85 & UP (024) SOWKAM257;24 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3524 TO INDIVIDUAL LIVING (025) SOWKAM257;25 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3525 TO HOSPITAL (026) SOWKAM257;26 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3526 OTHER INSTITUTION CARE (027) SOWKAM257;27 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3527 DEATH (028) SOWKAM257;28 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3528 LESS THAN 1 YR. (029) SOWKAM257A;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3529 1-2 YRS. (030) SOWKAM257A;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3530 3-5 YRS. (031) SOWKAM257A;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3531 OVER 5 YRS. (032) SOWKAM257A;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3532 LESS THAN 25 (033) SOWKAM257A;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3533 25-34 (034) SOWKAM257A;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3534 35-44 (035) SOWKAM257A;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3535 45-54 (036) SOWKAM257A;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3536 55-64 (037) SOWKAM257A;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3537 65-74 (038) SOWKAM257A;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3538 75-84 (039) SOWKAM257A;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3539 85 & OVER (040) SOWKAM257A;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3540 TO INDIVIDUAL LIVING (041) SOWKAM257A;13 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3541 TO HOSPITAL (042) SOWKAM257A;14 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3542 OTHER INSTITUTION CARE (043) SOWKAM257A;15 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3543 DEATH (044) SOWKAM257A;16 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3544 LESS THAN 1 YR. (045) SOWKAM257A;17 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3545 1-2 YRS. (046) SOWKAM257A;18 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3546 3-5 YRS. (047) SOWKAM257A;19 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3547 OVER 5 YRS. (048) SOWKAM257A;20 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3548 LESS THAN 25 (049) SOWKAM257A;21 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3549 25-34 (050) SOWKAM257A;22 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3550 35-44 (051) SOWKAM257A;23 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3551 45-54 (052) SOWKAM257A;24 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3552 55-64 (053) SOWKAM257A;25 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3553 65-74 (054) SOWKAM257B;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3554 75-84 (055) SOWKAM257B;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3555 85 & UP (056) SOWKAM257B;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3556 TO INDIVIDUAL LIVING (057) SOWKAM257B;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3557 TO HOSPITAL (058) SOWKAM257B;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3558 OTHER INSTITUTION CARE (059) SOWKAM257B;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3559 DEATH (060) SOWKAM257B;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3560 LESS THAN 1 YR. (061) SOWKAM257B;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3561 1-2 YRS (062) SOWKAM257B;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3562 3-5 YRS (063) SOWKAM257B;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3563 OVER 5 YRS. (064) SOWKAM257B;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3564 LESS THAN 25 (065) SOWKAM257B;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3565 25-34 (066) SOWKAM257B;13 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3566 35-44 (067) SOWKAM257B;14 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3567 45-54 (068) SOWKAM257B;15 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3568 55-64 (069) SOWKAM257B;16 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3569 65-74 (070) SOWKAM257B;17 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3570 75-84 (071) SOWKAM257B;18 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3571 85 & UP (072) SOWKAM257B;19 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3572 TO INDIVIDUAL LIVING (073) SOWKAM257B;20 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3573 TO HOSPITAL (074) SOWKAM257B;21 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3574 OTHER INSTITUTION CARE (075) SOWKAM257B;22 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3575 DEATH (076) SOWKAM257B;23 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
2100,3576 LESS THAN 1 YR. (077) SOWKAM257B;24 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3577 1-2 YRS. (078) SOWKAM257B;25 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3578 3-5 YRS (079) SOWKAM257B;26 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3579 OVER 5 YRS. (080) SOWKAM257C;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3580 HOSPITAL (081) SOWKAM257C;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3581 NHCU (082) SOWKAM257C;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3582 CNH (083) SOWKAM257C;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3583 VA DOM (084) SOWKAM257C;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3584 COMM. (085) SOWKAM257C;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3585 OTHER (086) SOWKAM257C;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3586 1-3 BEDS (001) SOWKAM257C;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3587 4-6 BEDS (002) SOWKAM257C;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3588 7-15 (003) SOWKAM257C;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3589 16-25 (004) SOWKAM257C;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3590 OVER 25 BEDS (005) SOWKAM257C;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3591 MEDICAL/SURGICAL (006) SOWKAM257C;13 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3592 PSYCHOSIS/NEUROSIS (007) SOWKAM257C;14 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3593 ORGANIC & SENILE DISEASE (008) SOWKAM257C;15 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3594 SUBSTANCE ABUSE (009) SOWKAM257C;16 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3595 ALL OTHER (010) SOWKAM257C;17 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3596 NSC (011) SOWKAM257C;18 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3597 LESS THAN 50% (012) SOWKAM257C;19 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3598 50% OR MORE SC (013) SOWKAM257C;20 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3599 VETERANS INCOMP. (014) SOWKAM257C;21 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3600 VETERANS COMPETENT (015) SOWKAM257C;22 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3601 GAINS (001) SOWKAM361;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 21, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3602 TREATMENT GOAL ACHIEVED (002) SOWKAM361;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3603 REHOSPITALIZATION (003) SOWKAM361;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3604 DEATHS IN HOME (004) SOWKAM361;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3605 OTHER LOSSES (005) SOWKAM361;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3606 REMAINING HBHC PATIENTS (006) SOWKAM361;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3607 PATIENT DAYS OF CARE (007) SOWKAM361;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,4)_Y
LAST EDITED: JUN 22, 1990
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
2100,3608 S.C. (008) SOWKAM361;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3609 N.S.C. (009) SOWKAM361;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3610 # REC. OF A&A BENEFITS (010) SOWKAM361;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3611 S.C. (011) SOWKAM361;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3612 N.S.C. (012) SOWKAM361;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3613 PHYSICIAN (013) SOWKAM361;13 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3614 RN (014) SOWKAM361;14 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3615 LPN (015) SOWKAM361;15 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3616 DIETITIAN (016) SOWKAM361;16 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3617 SOCIAL WORKER (017) SOWKAM361;17 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3618 RMS (018) SOWKAM361;18 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3619 HOME HEALTH AIDE (019) SOWKAM361;19 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3620 STUDENTS (020) SOWKAM361;20 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3621 OTHERS (021) SOWKAM361;21 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3622 PHYSICIAN (022) SOWKAM361;22 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3623 RN (023) SOWKAM361;23 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3624 LPN (024) SOWKAM361;24 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3625 DIETITIAN (025) SOWKAM361;25 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3626 SOCIAL WORKER (026) SOWKAM361A;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3627 RMS (027) SOWKAM361A;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3628 HOME HEALTH AIDE (028) SOWKAM361A;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3629 STUDENTS (029) SOWKAM361A;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,3630 OTHER (030) SOWKAM361A;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
2100,4000 DATE OF POSITION VACANCY GECOPER4;1 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X Q:'$D(X) S X=$E(X,4,7)_$E(X,2,3)
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,6)_Y
LAST EDITED: OCT 09, 1990
DESCRIPTION:
This is the date of the position vacancy in the format of 'mmddyy'.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2100,4001 SUPERVISORY LEVEL GECOPER4;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X?1AN) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: OCT 09, 1990
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION:
This is the code for the level of supervision this position provides.
2100,4002 POSITION NUMBER GECOPER4;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>6!($L(X)<1)!'(X?1.6AN) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y S:Y="000000" Y=" "
LAST EDITED: OCT 09, 1990
HELP-PROMPT: Answer must be 1-6 characters in length.
DESCRIPTION:
This is the station defined position number.
2100,4003 FLSA GECOPER4;4 SET
FAIR LABOR STANDARDS ACT
'E' FOR EXEMPT;
'N' FOR NON-EXEMPT;
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: OCT 09, 1990
DESCRIPTION:
This is the code which indicates if the position is exempt from the Fair Labor Standards Act.
2100,4004 FUNCTIONAL CODE GECOPER4;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X?1AN) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: OCT 09, 1990
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION: This field indicates the primary functions of scientific (including Title 38) and engineering
positions.
2100,4005 PAY PLAN GECOPER4;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X?1AN) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: OCT 09, 1990
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION:
This is the one character code which identifies the pay category (e.g. 'A').
2100,4006 OCCUPATIONAL SERIES & TITLE GECOPER4;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>6!($L(X)<6)!'(X?5N1AN) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,6)_Y
LAST EDITED: JAN 28, 1991
HELP-PROMPT: Answer must be 5 digits and 1 alpha OR 6 digits in length.
DESCRIPTION: The first four digits represent the occupational series. The fifth and sixth digits identify the
position title.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2100,4007 GRADE GECOPER4;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y S:Y="00" Y=" "
LAST EDITED: OCT 09, 1990
HELP-PROMPT: Answer must be 1-2 digits in length.
DESCRIPTION:
This field indicates the grade level.
2100,4008 ORGANIZATION & COST CENTER GECOPER4;9 FREE TEXT
INPUT TRANSFORM: K:$L(X)>8!($L(X)<8)!'(X?8N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,8)_Y
LAST EDITED: OCT 09, 1990
HELP-PROMPT: Answer must be 8 digits in length.
DESCRIPTION:
The first 4 digits represent the COST CENTER and the last 4 digits represent the ORGANIZATION.
2100,4009 DUTY BASIS GECOPER4;10 SET
'1' FOR FULL-TIME;
'2' FOR PART-TIME;
'3' FOR INTERMITTENT;
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: OCT 09, 1990
DESCRIPTION:
This field contains the code which identifies the position as full/part- time or intermittent.
2100,4010 DUTY STATION GECOPER4;11 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X?1AN) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: OCT 09, 1990
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION:
This field contains the code for the duty station.
2100,4011 NUMBER OF VACANCIES GECOPER4;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
LAST EDITED: OCT 09, 1990
HELP-PROMPT: Type a Number between 1 and 99, 0 Decimal Digits
DESCRIPTION:
This is the number of vacancies for this position.
2100,4012 GRADE OF POSITION-2 GECOPER4;13 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y S:Y="00" Y=" "
LAST EDITED: OCT 09, 1990
HELP-PROMPT: Answer must be 1-2 digits in length.
DESCRIPTION:
This is a target grade for this position.
2100,4013 GRADE OF POSITION-3 GECOPER4;14 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y S:Y="00" Y=" "
LAST EDITED: OCT 09, 1990
HELP-PROMPT: Answer must be 1-2 digits in length.
DESCRIPTION:
This is a target grade for this position.
2100,4014 GRADE OF POSITION-4 GECOPER4;15 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y S:Y="00" Y=" "
LAST EDITED: OCT 09, 1990
HELP-PROMPT: Answer must be 1-2 digits in length.
DESCRIPTION:
This is a target grade for this position.
2100,4015 ASSIGNMENT CODE GECOPER4;16 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<2)!'(X?2AN) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,2)_Y
LAST EDITED: OCT 09, 1990
HELP-PROMPT: Answer must be 2 characters in length.
DESCRIPTION:
This is the code for the specialty area of the position.
2100,4016 PAY PLAN GECOPER4;17 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<2)!'(X?2A) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,2)_Y
LAST EDITED: OCT 09, 1990
HELP-PROMPT: Answer must be 2 characters in length.
DESCRIPTION:
This is the two letter code which identifies the pay category (e.g. 'GS').
2100,4017 HOURLY RATE GECOPER4;18 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99.99)!(X<3.8) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E("00",$L($P(Y,".",1))+1,2)_$P(Y,".",1),$P(Y,".",2)=$P
(Y,".",2)_$E("00",$L($P(Y,".",2))+1,2),Y=$P(Y,".",1)_$P(Y,".",2) S:Y="0000" Y=" "
LAST EDITED: OCT 09, 1990
HELP-PROMPT: Type a Dollar Amount between 3.8 and 99.99, 2 Decimal Digits
DESCRIPTION:
This field indicates the hourly rate for wage vacancies.
2100,4018 VA ONLY GECOPER4;19 SET
'1' FOR CURRENT VA EMPLOYEES ONLY;
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: OCT 09, 1990
DESCRIPTION:
This field indicates if applications are invited from current VA employees only.
2100,4019 CHIEF OR ASST CHIEF GECOPER4;20 SET
CHIEF OR ASSISTANT CHIEF PHYSICIAN & DENTIST VACANCIES
'C' FOR CHIEF OF SERVICE POSITION;
'A' FOR ASSISTANT CHIEF OF SERVICE POSITION;
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: OCT 09, 1990
DESCRIPTION: This field indicates if a physician or dentist assignment is for a service or assistant service
chief.
2100,4020 PART-TIME POSITION GECOPER4;21 SET
'1' FOR PART-TIME;
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: OCT 09, 1990
DESCRIPTION:
This field indicates if the position is part-time.
2100,4021 RESERVED-1 GECOPER4;22 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: OCT 10, 1990
HELP-PROMPT: Answer must be 1 character in length.
2100,4141.001 PROTESTANT CENSUS A4CGAMS4A;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
The Protestant census as of the last day of the report period.
2100,4141.002 CATHOLIC CENSUS A4CGAMS4A;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
The Catholic census as of the last day of the report period.
2100,4141.003 JEWISH CENSUS A4CGAMS4A;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
The Jewish census as of the last day of the report period.
2100,4141.004 EASTERN ORTHODOX CENSUS A4CGAMS4A;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
The Eastern Orthodox census as of the last day of the report period.
2100,4141.005 CENSUS (OTHER) A4CGAMS4A;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
The census of all other religious denominations as of the last day of the report period.
2100,4141.006 CENSUS (NO PREFERENCE) A4CGAMS4A;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION: The census of all patients and persons as of the last day of the report period who have no
religious preference.
2100,4141.007 PROTESTANT CONTRACT CHAPLAINS A4CGAMS4A;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
DESCRIPTION:
The number of Protestant contract chaplains who provided services during the period.
2100,4141.008 CATHOLIC CONTRACT CHAPLAINS A4CGAMS4A;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
DESCRIPTION:
The number of Catholic contract chaplains who provided services during the period.
2100,4141.009 JEWISH CONTRACT CHAPLAINS A4CGAMS4A;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
DESCRIPTION:
The number of Jewish contract chaplains who provided services during the period.
2100,4141.01 E ORTHODOX CONTRACT CHAPLAINS A4CGAMS4A;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
DESCRIPTION:
The number of Eastern Orthodox contract chaplains who provided services during the period.
2100,4141.011 PROTESTANT CONTRACT $'S A4CGAMS4A;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total dollars paid out to contract chaplains during the period for Protestant services.
2100,4141.012 CATHOLIC CONTRACT $'S A4CGAMS4A;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total dollars paid out to contract chaplains during the period for Catholic services.
2100,4141.013 JEWISH CONTRACT $'S A4CGAMS4A;13 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total dollars paid out to contract chaplains during the period for Jewish services.
2100,4141.014 E ORTHODOX CONTRACT $'S A4CGAMS4A;14 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total dollars paid out to contract chaplains during the period for Eastern Orthodox services.
2100,4141.015 PROTESTANT FEE BASIS A4CGAMS4A;15 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
DESCRIPTION:
The number of Protestant chaplains who provided services on a fee basis during the period.
2100,4141.016 CATHOLIC FEE BASIS A4CGAMS4A;16 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
DESCRIPTION:
The number of Catholic chaplains who provided services on a fee basis during the period.
2100,4141.017 JEWISH FEE BASIS A4CGAMS4A;17 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
DESCRIPTION:
The number of Jewish chaplains who provided services on a fee basis during the period.
2100,4141.018 E ORTHODOX FEE BASIS A4CGAMS4A;18 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
DESCRIPTION:
The number of Eastern Orthodox chaplains who provided services on a fee basis during the period.
2100,4141.019 PROTESTANT FEE BASIS $'S A4CGAMS4A;19 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total dollars paid out to fee basis chaplains during the period for Protestant services.
2100,4141.02 CATHOLIC FEE BASIS $'S A4CGAMS4A;20 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total dollars paid out to fee basis chaplains during the period for Catholic services.
2100,4141.021 JEWISH FEE BASIS $'S A4CGAMS4A;21 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total dollars paid out to fee basis chaplains during the period for Jewish services.
2100,4141.022 E ORTHODOX FEE BASIS $'S A4CGAMS4A;22 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total dollars paid out to fee basis chaplains during the period for Eastern Orthodox services.
2100,4141.023 FULL TIME CHAPLAINS A4CGAMS4A;23 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
The number of full-time chaplains during the period who provided services.
2100,4141.024 PART TIME CHAPLAINS A4CGAMS4A;24 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
The number of part-time chaplains during the period who provided services.
2100,4141.025 INTERMITTENT CHAPLAINS A4CGAMS4A;25 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
The number of intermittent chaplains during the period who provided services.
2100,4141.026 PROTESTANT CHAPLAINS A4CGAMS4A;26 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
The total number of Protestant chaplains who provided services during the period.
2100,4141.027 CATHOLIC CHAPLAINS A4CGAMS4A;27 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
The total number of Catholic chaplains who provided services during the period.
2100,4141.028 JEWISH CHAPLAINS A4CGAMS4A;28 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
The total number of Jewish chaplains who provided services during the period.
2100,4141.029 E ORTHODOX CHAPLAINS A4CGAMS4A;29 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
The total number of Eastern Orthodox chaplains who provided services during the period.
2100,4141.03 RELIGIOUS SERVICES (TIMES) A4CGAMS4A;30 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION: The number of times regularly established worship services and masses were held in the chapel,
chapel room, ward, or day room. Jewish chaplains will include yahrseit minyon.
2100,4141.031 RELIGIOUS SERVICES (PERSONS) A4CGAMS4A;31 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION: The number of persons attending regularly established worship services and masses in the chapel,
chapel room, ward, or day room. Jewish chaplains will include yahrseit minyon.
2100,4141.032 GROUP MEETINGS (TIMES) A4CGAMS4A;32 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION: The number of group meetings devoted to religious education, Bible class, and religious
instructions and discussions.
2100,4141.033 GROUP MEETINGS (PERSONS) A4CGAMS4A;33 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION: The number of persons attending group meetings devoted to religious education, Bible class, and
religious instructions and discussions.
2100,4141.034 HOLY COMMUNION (CHAPEL) A4CGAMS4A;34 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total number of communions distributed in the chapel.
2100,4141.035 HOLY COMMUNION (BEDSIDE) A4CGAMS4A;35 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total number of communions distributed at bedside.
2100,4141.036 CONFESSIONS A4CGAMS4A;36 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
The number of confessions heard.
2100,4141.037 MINISTRY TO DYING A4CGAMS4A;37 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION: All ministry to the dying or Sacraments of the sick. Jewish chaplains will report Vidui
(confession) prayers in this field.
2100,4141.038 EMERGENCY CALLS A4CGAMS4A;38 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
The number of emergency calls of all types conducted outside of duty hours.
2100,4141.039 VISITS TO SERIOUSLY ILL A4CGAMS4A;39 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of visits made to seriously ill patients.
2100,4141.04 VISITS TO NEWLY ADMITTED A4CGAMS4A;40 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of initial visits to newly admitted patients.
2100,4141.041 PRE & POST SURGERY VISITS A4CGAMS4A;41 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of visits made to pre- and post-surgery patients.
2100,4141.042 PATIENT/RELATIVE CONSULTATIONS A4CGAMS4A;42 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of consultations of all types with patients and relatives of patients.
2100,4141.043 CONSULTATIONS W/STAFF A4CGAMS4A;43 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of times staff members were consulted about patients.
2100,4141.044 FUNERALS (SERVICES) A4CGAMS4A;44 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Funeral Services which were a part of official duty.
2100,4141.045 FUNERALS (ATTENDANCE) A4CGAMS4A;45 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of people in attendance.
2100,4141.046 AMBULATORY CARE (PERSONS) A4CGAMS4A;46 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The number of non-hospitalized, ambulatory care patients who were visited by the chaplain.
2100,4141.047 RADIO & TV (TIMES) A4CGAMS4A;47 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
The number of times religious radio and TV programs were given.
2100,4141.048 USE OF VISUAL AIDS (TIMES) A4CGAMS4A;48 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION: The number of times religious audio and visual aids (other than radio and TV) were used. These
include cassettes, records, etc.
2100,4141.049 ORIENTATION LECTURES A4CGAMS4A;49 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
The number of orientation lectures to interns, residents, nurses and allother staff disciplines.
2100,4141.05 STAFF MEETINGS A4CGAMS4A;50 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
The number of administrative and multi-disciplinary staff meetings attended.
2100,4141.051 MENTAL HEALTH CARE MEETINGS A4CGAMS4A;51 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION: The number of group meetings of all types with mental health care patients which were attended by a
chaplain (e.g., group therapy, orientation lectures, patient government).
2100,4141.052 SERVICES BY VISITING CLERGY A4CGAMS4B;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
The number of services of all types provided by visiting clergy.
2100,4141.053 VOLUNTEERS (PERSONS) A4CGAMS4B;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
The number of different volunteers who worked on activities for Chaplain Service.
2100,4141.054 VOLUNTEER (HOURS) A4CGAMS4B;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The number of hours worked by volunteers.
2100,4141.055 REGULAR VISITATIONS A4CGAMS4B;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of regular pastoral visits to patients.
2100,4141.056 OUTPATIENTS SEEN (TIMES) A4CGAMS4B;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of times outpatients were seen by a chaplain on a one-to- one basis.
2100,4141.057 MENTAL HEALTH SETTING A4CGAMS4V;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUL 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
Pastoral counseling conducted in or with a mental health setting.
2100,4141.058 POST TRAUMATIC STRESS A4CGAMS4V;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUL 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
The number of patients with Post Traumatic Stress Disorders seen.
2100,4141.059 AIDS/HIV A4CGAMS4V;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUL 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
The number of patients counseled.
2100,4141.06 SUBSTANCE ABUSE A4CGAMS4V;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUL 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
The number of patients counseled.
2100,4141.061 HOMELESS A4CGAMS4V;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUL 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
The number of homeless seen, counseled or helped by chaplains.
2100,4141.062 BEREAVEMENT A4CGAMS4V;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUL 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
The number of persons counseled either one-on-one or in a group.
2100,4141.063 ONCOLOGY A4CGAMS4V;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUL 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
The number of patients counseled in this field.
2100,4141.064 PERSON ABUSE A4CGAMS4V;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUL 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
The number of persons counseled.
2100,4141.065 GERIATRIC A4CGAMS4V;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUL 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION: All patients seen in extended care, adult day care, nursing home care, GRECC and other aging
Veteran activities.
2100,4141.066 COLLATERAL VISITS A4CGAMS4V;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUL 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
The number of visits that qualify under the definition of a collateral visit.
2100,4141.067 VETS CENTER A4CGAMS4V;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUL 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
The total number of veterans and staff seen while visiting local veterans centers.
2100,4141.068 MGMT COMMITTEE (HRS TRAIN) A4CGAMS4V;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUL 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
The number of hours spent in class or on-the-job training.
2100,4141.069 MGMT COMMITTEE (HRS SPENT) A4CGAMS4V;13 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: JUL 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION: The number of hours spent serving on management committees. Include both clinical and
administrative management.
2100,4141.07 MULTI-DISCIPLINARY A4CGAMS4V;14 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: JUL 30, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of team meetings the chaplains attended during the reporting period.
2100,4141.071 ETHIC COMMITTEE CHAIRMAN A4CGAMS4V;15 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>1)!(X<1)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
LAST EDITED: JUL 27, 1990
HELP-PROMPT: Type a Number between 1 and 1, 0 Decimal Digits
DESCRIPTION:
Enter '1' if you served as a chairman on an ethic committee.
2100,4141.072 ETHIC COMMITTEE MEMBER A4CGAMS4V;16 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>1)!(X<1)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
LAST EDITED: JUL 27, 1990
HELP-PROMPT: Type a Number between 1 and 1, 0 Decimal Digits
DESCRIPTION:
Enter '1' if you served as a member of an ethic committee.
2100,4142.01 CHAPEL OFFERINGS (PROTESTANT) A4CGAMS4C;1 NUMBER
CHAPEL OFFERINGS RECEIPTS (PROTESTANT)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,"."
,1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
DESCRIPTION:
All receipts from chapel offerings to the Protestant Chaplain's Fund.
2100,4142.02 OTHER DONATIONS (PROTESTANT) A4CGAMS4C;2 NUMBER
OTHER DONATIONS RECEIPTS (PROTESTANT)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,"."
,1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
DESCRIPTION:
All receipts from other donations (non-chapel offerings) to the Protestant Chaplain's Fund.
2100,4142.03 SUPPLIES/EQUIP (PROTESTANT) A4CGAMS4C;3 NUMBER
SUPPLIES/EQUIP DISBURSEMENTS (PROTESTANT)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,"."
,1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
DESCRIPTION:
All monies spent on supplies, equipment, etc, from the Protestant Chaplain's Fund.
2100,4142.04 CONTRIBUTIONS (PROTESTANT) A4CGAMS4C;4 NUMBER
CONTRIBUTIONS DISBURSEMENTS (PROTESTANT)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,"."
,1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
DESCRIPTION:
All monies contributed to institutions, organizations, etc, from the Protestant Chaplain's Fund.
2100,4142.05 HONORARIA (PROTESTANT) A4CGAMS4C;5 NUMBER
HONORARIA DISBURSEMENTS (PROTESTANT)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,"."
,1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
DESCRIPTION:
All monies used as honoraria from the Protestant Chaplain's Fund.
2100,4142.06 BALANCE EOP (PROTESTANT) A4CGAMS4C;6 NUMBER
BALANCE ON HAND EOP (PROTESTANT)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,"."
,1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
DESCRIPTION:
The amount remaining in the Protestant Chaplain Fund at the end of the period.
2100,4142.07 AUDIT (PROTESTANT) A4CGAMS4C;7 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>2)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 11, 1990
HELP-PROMPT: Enter 1 for YES or 2 for NO.
DESCRIPTION:
Whether or not the Protestant Chaplain's Fund was audited during the period.
2100,4142.08 CHAPEL OFFERINGS (CATHOLIC) A4CGAMS4C;8 NUMBER
CHAPEL OFFERINGS RECEIPTS (CATHOLIC)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,"."
,1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
DESCRIPTION:
All receipts from chapel offerings to the Catholic Chaplain's Fund.
2100,4142.09 OTHER DONATIONS (CATHOLIC) A4CGAMS4C;9 NUMBER
OTHER DONATIONS RECEIPTS (CATHOLIC)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,"."
,1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
DESCRIPTION:
All receipts from other donations (non-chapel offerings) to the Catholic Chaplain's Fund.
2100,4142.1 SUPPLIES/EQUIP (CATHOLIC) A4CGAMS4C;10 NUMBER
SUPPLIES/EQUIP DISBURSEMENTS (CATHOLIC)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,"."
,1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
DESCRIPTION:
All monies spent on supplies, equipment,...etc from the Catholic Chaplain's Fund
2100,4142.11 CONTRIBUTIONS (CATHOLIC) A4CGAMS4C;11 NUMBER
CONTRIBUTIONS DISBURSEMENTS (CATHOLIC)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,"."
,1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
DESCRIPTION:
All monies contributed to institutions, organizations,...etc from the Catholic Chaplain's Fund.
2100,4142.12 HONORARIA (CATHOLIC) A4CGAMS4C;12 NUMBER
HONORARIA DISBURSEMENTS (CATHOLIC)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,"."
,1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
DESCRIPTION:
All monies used as honoraria from the Catholic Chaplain's Fund.
2100,4142.13 BALANCE EOP (CATHOLIC) A4CGAMS4C;13 NUMBER
BALANCE ON HAND EOP (CATHOLIC)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,"."
,1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
DESCRIPTION:
The end-of-period amount remaining in the Catholic Chaplain's Fund.
2100,4142.14 AUDIT (CATHOLIC) A4CGAMS4C;14 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>2)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 11, 1990
HELP-PROMPT: Enter 1 for YES or 2 for NO.
DESCRIPTION:
Whether or not the Catholic Chaplain's Fund was audited during the period.
2100,4142.15 CHAPEL OFFERINGS (JEWISH) A4CGAMS4C;15 NUMBER
CHAPEL OFFERINGS RECEIPTS (JEWISH)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,"."
,1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
DESCRIPTION:
All receipts from chapel offerings to the Jewish Chaplain's Fund.
2100,4142.16 OTHER DONATIONS (JEWISH) A4CGAMS4C;16 NUMBER
OTHER DONATIONS RECEIPTS (JEWISH)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,"."
,1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
DESCRIPTION:
All receipts from other donations (non-chapel offerings) to the Jewish Chaplain's Fund.
2100,4142.17 SUPPLIES/EQUIP (JEWISH) A4CGAMS4C;17 NUMBER
SUPPLIES/EQUIP DISBURSEMENTS (JEWISH)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,"."
,1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
DESCRIPTION:
All monies spent on supplies, equipment,...etc from the Jewish Chaplain's Fund.
2100,4142.18 CONTRIBUTIONS (JEWISH) A4CGAMS4C;18 NUMBER
CONTRIBUTIONS DISBURSEMENTS (JEWISH)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,"."
,1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
DESCRIPTION:
All monies contributed to institutions, organizations,...etc from the Jewish Chaplain's Fund.
2100,4142.19 HONORARIA (JEWISH) A4CGAMS4C;19 NUMBER
HONORARIA DISBURSEMENTS (JEWISH)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,"."
,1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
DESCRIPTION:
All monies used as honoraria from the Jewish Chaplain's Fund.
2100,4142.2 BALANCE EOP (JEWISH) A4CGAMS4C;20 NUMBER
BALANCE ON HAND EOP (JEWISH)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,"."
,1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
DESCRIPTION:
The end-of-period amount remaining in the Jewish Chaplain's Fund.
2100,4142.21 AUDIT (JEWISH) A4CGAMS4C;21 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>2)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 11, 1990
HELP-PROMPT: Enter 1 for YES or 2 for NO.
DESCRIPTION:
Whether or not the Jewish Chaplain's Fund was audited during the period.
2100,4142.22 CHAPEL OFFERINGS (E ORTHODOX) A4CGAMS4C;22 NUMBER
CHAPEL OFFERINGS RECEIPTS (E ORTHODOX)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,"."
,1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
DESCRIPTION:
All receipts from chapel offerings to the Eastern Orthodox Chaplain's Fund.
2100,4142.23 OTHER DONATIONS (E ORTHODOX) A4CGAMS4C;23 NUMBER
OTHER DONATIONS RECEIPTS (E ORTHODOX)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,"."
,1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
DESCRIPTION:
All receipts from other donations (non-chapel offerings) to the Eastern Orthodox Chaplain's Fund.
2100,4142.24 SUPPLIES/EQUIP (E ORTHODOX) A4CGAMS4C;24 NUMBER
SUPPLIES/EQUIP DISBURSEMENTS (E ORTHODOX)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,"."
,1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
DESCRIPTION:
All monies spent on supplies, equipment,...etc from the Eastern Orthodox Chaplain's Fund.
2100,4142.25 CONTRIBUTIONS (E ORTHODOX) A4CGAMS4C;25 NUMBER
CONTRIBUTIONS DISBURSEMENTS (E ORTHODOX)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,"."
,1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
DESCRIPTION: All monies contributed to institutions, organizations,...etc from the Eastern Orthodox Chaplain's
Fund.
2100,4142.26 HONORARIA (E ORTHODOX) A4CGAMS4C;26 NUMBER
HONORARIA DISBURSEMENTS (E ORTHODOX)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,"."
,1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
DESCRIPTION:
All monies used as honoraria from the Eastern Orthodox Chaplain's Fund.
2100,4142.27 BALANCE EOP (E ORTHODOX) A4CGAMS4C;27 NUMBER
BALANCE ON HAND EOP (E ORTHODOX)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$S($L($P(Y,".",2))=0:Y_"00",$L($P(Y,".",2))=1:Y_"0",1:Y),$P(Y,"."
,1)=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
DESCRIPTION:
The end-of-period amount remaining in the Eastern Orthodox Chaplain's Fund.
2100,4142.28 AUDIT (E ORTHODOX) A4CGAMS4C;28 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>2)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 11, 1990
HELP-PROMPT: Enter 1 for YES or 2 for NO.
DESCRIPTION:
Whether or not the Eastern Orthodox Chaplain's Fund was audited during the period.
2100,4165.01 PHOTO I A4CGAMS4D;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The total number of work units performed for basic photography, black and white or color and copy
photography products.
2100,4165.02 PHOTO II A4CGAMS4D;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The total number of work units performed for studio, location or small object photography and
photomicrography.
2100,4165.03 PHOTO III A4CGAMS4D;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total number of work units performed for complex and photomicrography.
2100,4165.04 PHOTO IV A4CGAMS4D;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total number of work units performed for support activities of all photographic functions.
2100,4165.05 % PERS COST (PHOTO) A4CGAMS4D;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 100, 0 Decimal Digits
DESCRIPTION:
The percentage of total personnel costs for the photography section.
2100,4165.06 % SUPPLY COST (PHOTO) A4CGAMS4D;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 100, 0 Decimal Digits
DESCRIPTION:
The percentage of total cost of supplies and services for the photography section.
2100,4165.07 % SPACE COST (PHOTO) A4CGAMS4D;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 100, 0 Decimal Digits
DESCRIPTION:
The percentage of the total cost of space for the photography section.
2100,4165.08 EQUIPMENT COST (PHOTO) A4CGAMS4D;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The total acquisition cost for all photographic equipment.
2100,4165.09 ILL/GRA I A4CGAMS4D;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total number of work units performed for simple paste-up typesetting, and charts and graphs.
2100,4165.1 ILL/GRA II A4CGAMS4D;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The total number of work units performed for diagrams, simple line drawings, complex charts and
graphs, brochures, and displays.
2100,4165.11 ILL/GRA III A4CGAMS4D;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The total number of work units performed for complex illustration and/or graphics, TV art and major
cover designs.
2100,4165.12 ILL/GRA IV A4CGAMS4D;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The total number of work units performed for support activities for all illustration and graphic
functions.
2100,4165.13 % PERS COST (ILL/GRA) A4CGAMS4D;13 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 100, 0 Decimal Digits
DESCRIPTION:
The percentage of total personnel costs for the illustration/graphics section.
2100,4165.14 % SUPPLY COST (ILL/GRA) A4CGAMS4D;14 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 100, 0 Decimal Digits
DESCRIPTION:
The percentage of total cost of supplies and services for the illustration/graphics section.
2100,4165.15 % SPACE COST (ILL/GRA) A4CGAMS4D;15 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 100, 0 Decimal Digits
DESCRIPTION:
The percentage of total cost of space for the illustration/graphics section.
2100,4165.16 EQUIPMENT COST (ILL/GRA) A4CGAMS4D;16 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The total acquisition cost for all illustration and graphics equipment.
2100,4165.17 CAG I A4CGAMS4D;17 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total number of work units performed for all simple slides generated by computer.
2100,4165.18 CAG II A4CGAMS4D;18 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The total number of work units performed for chart and graph slides and more complex word slides
generated by computer.
2100,4165.19 CAG III A4CGAMS4D;19 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The total number of work units performed for all original illustration slides that require free
hand computer digitizing.
2100,4165.2 CAG IV A4CGAMS4D;20 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The total number of work units performed on all support activities for the computer aided graphics
section.
2100,4165.21 % PERS COST (CAG) A4CGAMS4D;21 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 100, 0 Decimal Digits
DESCRIPTION:
The percentage of total personnel costs for the computer aided graphics section.
2100,4165.22 % SUPPLY COST (CAG) A4CGAMS4D;22 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 100, 0 Decimal Digits
DESCRIPTION:
The percentage of total cost of supplies and services for the computer aided graphics section.
2100,4165.23 % SPACE COST (CAG) A4CGAMS4D;23 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 100, 0 Decimal Digits
DESCRIPTION:
The percentage of the total cost of space for the computer aided graphics section.
2100,4165.24 EQUIPMENT COST (CAG) A4CGAMS4D;24 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The total acquisition cost for all computer aided graphics equipment.
2100,4165.25 A/V I A4CGAMS4D;25 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The total number of minutes spent for motion picture, sound recording, media services activities
and level III video notebooking.
2100,4165.26 A/V II A4CGAMS4D;26 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The total number of minutes spent for video production products which will be utilized at the local
medical center.
2100,4165.27 A/V III A4CGAMS4D;27 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The total number of minutes spent on those productions which are instructional and/or informational
and intended for regional or national distribution.
2100,4165.28 A/V IV A4CGAMS4D;28 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total number of minutes spent on all support activities for the audiovisual section.
2100,4165.29 % PERS COST (A/V) A4CGAMS4D;29 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 100, 0 Decimal Digits
DESCRIPTION:
The percentage of total personnel costs for the audiovisual section.
2100,4165.3 % SUPPLY COST (A/V) A4CGAMS4D;30 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 100, 0 Decimal Digits
DESCRIPTION:
The percentage of total cost of supplies and services for the audiovisual section.
2100,4165.31 % SPACE COST (A/V) A4CGAMS4D;31 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 100, 0 Decimal Digits
DESCRIPTION:
The percentage of the total cost of space for the audiovisual section.
2100,4165.32 EQUIPMENT COST (A/V) A4CGAMS4D;32 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The total acquisition cost for all audiovisual equipment.
2100,4165.33 MISC/ADMIN OPERATIONS A4CGAMS4D;33 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total number of minutes spent on all management, administration and clerical activities.
2100,4165.34 % PERS COST (MO/A) A4CGAMS4D;34 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 100, 0 Decimal Digits
DESCRIPTION:
The percentage of total personnel costs for miscellaneous operations and administration.
2100,4165.35 % SUPPLY COST (MO/A) A4CGAMS4D;35 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 100, 0 Decimal Digits
DESCRIPTION: The percentage of total cost of supplies and services for miscellaneous operations and
administration.
2100,4165.36 % SPACE COST (MO/A) A4CGAMS4D;36 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 100, 0 Decimal Digits
DESCRIPTION:
The percentage of the total cost of space for miscellaneous operations and administration.
2100,4165.37 EQUIPMENT COST (MO/A) A4CGAMS4D;37 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The total acquisition cost for all miscellaneous and administrative equipment.
2100,4165.38 PERSONNEL (TOTAL COST) A4CGAMS4D;38 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The total personnel cost for the quarter rounded to the nearest dollar.
2100,4165.39 SUPPLIES/SERVICES (TOTAL COST) A4CGAMS4D;39 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION: The total cost of supplies and services used by all Medical Media Production activities rounded to
the nearest dollar.
2100,4165.4 SPACE (TOTAL COST) A4CGAMS4D;40 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The total space cost for the quarter rounded to the nearest dollar.
2100,4165.41 MEDICAL REQUESTS A4CGAMS4D;41 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
DESCRIPTION: The percentage of the total number of requests received by Medical Media Production Service for all
categories of operations for which the subject of the completed project was medically oriented.
2100,4165.42 NON MEDICAL REQUESTS A4CGAMS4D;42 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
DESCRIPTION: The percentage of the total number of requests received by Medical Media Production Service for
which the subject of the completed product was not medically oriented.
2100,4165.43 RESEARCH REQUESTS A4CGAMS4D;43 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
DESCRIPTION: The percentage of the total number of requests received by Medical Media Production Service for
which the subject of the completed product was research oriented.
2100,4165.44 HOURS WORKED (CHIEF) A4CGAMS4D;44 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
The total number of hours worked by the Office of the Chief, Medical Media Service.
2100,4165.45 HOURS WORKED (CLERICAL) A4CGAMS4D;45 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
The total number of clerical hours worked.
2100,4165.46 HOURS WORKED (VOLUNTEER) A4CGAMS4D;46 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
The total number of hours worked by volunteers.
2100,4165.47 HOURS WORKED (PRODUCTION) A4CGAMS4D;47 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
The total number of hours worked by the production staff.
2100,4165.48 HOURS WORKED (TRAINEES) A4CGAMS4E;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
The total number of hours worked by trainees.
2100,4165.49 HOURS WORKED (ALL EMPLOYEES) A4CGAMS4E;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
The total number of hours worked by all Medical Media Production Service employees.
2100,4165.5 HOURS PAID (CHIEF) A4CGAMS4E;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
The total number of paid hours for the Office of the Chief, Medical Media Service.
2100,4165.51 HOURS PAID (CLERICAL) A4CGAMS4E;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
The total number of paid hours for clerical work.
2100,4165.52 HOURS PAID (PRODUCTION) A4CGAMS4E;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
The total number of paid hours for production work.
2100,4165.53 HOURS PAID OT (ALL EMPLOYEES) A4CGAMS4E;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
The total number of paid overtime hours for all employees.
2100,4165.54 LWOP HOURS A4CGAMS4E;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
The number of Leave Without Pay (LWOP) hours used.
2100,4165.55 COP 45-DAY A4CGAMS4E;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
The number of days of Continuation of Pay (COP) used.
2100,4165.56 FTEE PAID A4CGAMS4E;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99.99)!(X<0)!(X?.E1"."3N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("00",$L($P(Y,".",1))+1,2)_$P(Y,".",1)_$P(Y,".",2)_$E("00",$L($
P(Y,".",2))+1,2)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 99.99, 2 Decimal Digits
DESCRIPTION:
The paid FTEE ceiling for Medical Media Production Service.
2100,4200.001 PSYCHIATRIC I A4CGAMS4F;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 24, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Intensive Care patients in the psychiatric bed section.
2100,4200.002 PSYCHIATRIC II A4CGAMS4F;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 24, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Acute I Care patients in the psychiatric bed section.
2100,4200.003 PSYCHIATRIC III A4CGAMS4F;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 24, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Acute II Care patients in the psychiatric bed section.
2100,4200.004 PSYCHIATRIC IV A4CGAMS4F;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 24, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Extended Hospice Care patients in the psychiatric bed section.
2100,4200.005 NO. OF PSYCHIATRIC WARDS A4CGAMS4F;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("00",$L($P(Y,".",1))+1,2)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P
(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 99.9, 1 Decimal Digit
DESCRIPTION:
The average number of psychiatric wards.
2100,4200.006 ALCOHOL & DRUG DEP TRMT I A4CGAMS4F;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 24, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Intensive Care patients in the alcohol and drug dependence treatment bed section.
2100,4200.007 ALCOHOL & DRUG DEP TRMT II A4CGAMS4F;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 24, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Acute I Care patients in the alcohol and drug dependence treatment bed section.
2100,4200.008 ALCOHOL & DRUG DEP TRMT III A4CGAMS4F;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 24, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Acute II Care patients in the alcohol and drug dependence treatment bed section.
2100,4200.009 ALCOHOL & DRUG DEP TRMT IV A4CGAMS4F;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 24, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The number of Extended Hospice Care patients in the alcohol and drug dependence treatment bed
section.
2100,4200.01 NO. OF ALCOHOL/DRUG TRMT WARDS A4CGAMS4F;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("00",$L($P(Y,".",1))+1,2)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P
(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 99.9, 1 Decimal Digit
DESCRIPTION:
The average number of alcohol and drug dependence treatment wards.
2100,4200.011 SURGICAL I A4CGAMS4F;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 24, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Intensive Care patients in the surgical bed section.
2100,4200.012 SURGICAL II A4CGAMS4F;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 24, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Acute I Care patients in the surgical bed section.
2100,4200.013 SURGICAL III A4CGAMS4F;13 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 24, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Acute II Care patients in the surgical bed section.
2100,4200.014 SURGICAL IV A4CGAMS4F;14 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 24, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Extended Hospice Care patients in the surgical bed section.
2100,4200.015 NO. OF SURGICAL WARDS A4CGAMS4F;15 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("00",$L($P(Y,".",1))+1,2)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P
(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 99.9, 1 Decimal Digit
DESCRIPTION:
The average number of surgical wards.
2100,4200.016 MEDICAL I A4CGAMS4F;16 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 24, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Intensive Care patients in the medical bed section.
2100,4200.017 MEDICAL II A4CGAMS4F;17 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 24, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Acute I Care patients in the medical bed section.
2100,4200.018 MEDICAL III A4CGAMS4F;18 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 24, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Acute II Care patients in the medical bed section.
2100,4200.019 MEDICAL IV A4CGAMS4F;19 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 24, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Extended Hospice Care patients in the medical bed section.
2100,4200.02 NO. OF MEDICAL WARDS A4CGAMS4F;20 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("00",$L($P(Y,".",1))+1,2)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P
(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 99.9, 1 Decimal Digit
DESCRIPTION:
The average number of medical wards.
2100,4200.021 SPINAL CORD INJURY I A4CGAMS4F;21 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 24, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Intensive Care patients in the spinal cord injury bed section.
2100,4200.022 SPINAL CORD INJURY II A4CGAMS4F;22 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 24, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Acute I Care patients in the spinal cord injury bed section.
2100,4200.023 SPINAL CORD INJURY III A4CGAMS4F;23 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 24, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Acute II Care patients in the spinal cord injury bed section.
2100,4200.024 SPINAL CORD INJURY IV A4CGAMS4F;24 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 24, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Extended Hospice Care patients in the spinal cord injury bed section.
2100,4200.025 SPINAL CORD INJURY V A4CGAMS4F;25 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 24, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Minimal Care patients in the spinal cord injury bed section.
2100,4200.026 NO. OF SPINAL CORD INJ WARDS A4CGAMS4F;26 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("00",$L($P(Y,".",1))+1,2)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P
(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 99.9, 1 Decimal Digit
DESCRIPTION:
The average number of medical wards for spinal cord injury patients at the SCI Center only.
2100,4200.027 NURSING HOME CARE I A4CGAMS4F;27 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 24, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Intensive Care patients in VA Nursing Home Care Units only.
2100,4200.028 NURSING HOME CARE II A4CGAMS4F;28 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 24, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Acute I Care patients in VA Nursing Home Care Units only.
2100,4200.029 NURSING HOME CARE III A4CGAMS4F;29 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 24, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Acute II Care patients in VA Nursing Home Care Units only.
2100,4200.03 NO. OF NURSING HOME CARE WARDS A4CGAMS4F;30 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("00",$L($P(Y,".",1))+1,2)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P
(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 99.9, 1 Decimal Digit
DESCRIPTION:
The average number of wards assigned to VA Nursing Home Care.
2100,4200.031 NO. OF HEMODIALYSIS TREATMENTS A4CGAMS4F;31 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 24, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The cumulative number of hemodialysis treatments during the quarter.
2100,4200.032 NO. OF HEMODIALYSIS UNITS A4CGAMS4F;32 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("00",$L($P(Y,".",1))+1,2)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P
(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 99.9, 1 Decimal Digit
DESCRIPTION:
The average number of hemodialysis units.
2100,4200.033 HEMODIALYSIS DAYS OF OPERATION A4CGAMS4F;33 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 24, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
The total number of days that hemodialysis units were in operation during the quarter.
2100,4200.034 INTERMEDIATE CARE I A4CGAMS4F;34 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 24, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The number of Intensive Care patients who are in a bed section officially designated as an
intermediate bed section.
2100,4200.035 INTERMEDIATE CARE II A4CGAMS4F;35 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 24, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The number of Acute I Care patients who are in a bed section officially designated as an
intermediate bed section.
2100,4200.036 INTERMEDIATE CARE III A4CGAMS4F;36 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 24, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The number of Acute II Care patients who are in a bed section officially designated as an
intermediate bed section.
2100,4200.037 NO. OF INTERMEDIATE WARDS A4CGAMS4G;26 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("00",$L($P(Y,".",1))+1,2)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P
(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 99.9, 1 Decimal Digit
DESCRIPTION:
The average number of intermediate care wards.
2100,4200.038 DOMICILIARY (MEMBERS) A4CGAMS4G;27 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 24, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of members who are in a domiciliary care unit.
2100,4200.039 DOMICILIARY (UNITS) A4CGAMS4G;28 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
LAST EDITED: APR 24, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
DESCRIPTION:
The average number of domiciliary units.
2100,4200.04 CRITICAL CARE I A4CGAMS4G;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 23, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Intensive Care patients in the critical care section.
2100,4200.041 CRITICAL CARE II A4CGAMS4G;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 23, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Acute I Care patients in the critical care section.
2100,4200.042 CRITICAL CARE III A4CGAMS4G;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 23, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Acute II Care patients in the critical care section.
2100,4200.043 NO. OF CRITICAL CARE UNITS A4CGAMS4G;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("00",$L($P(Y,".",1))+1,2)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($P
(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 99.9, 1 Decimal Digit
DESCRIPTION:
The average number of critical care units.
2100,4200.044 OPERATING ROOM I A4CGAMS4G;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 23, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Intensive Care patients in the operating room section.
2100,4200.045 OPERATING ROOM II A4CGAMS4G;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 23, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Acute I Care patients in the operating room section.
2100,4200.046 OPERATING ROOM III A4CGAMS4G;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 23, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Acute II Care patients in the operating room section.
2100,4200.047 OPERATING ROOM IV A4CGAMS4G;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 23, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Extended Hospice Care patients in the operating room section.
2100,4200.048 NO. OF OPERATING ROOMS A4CGAMS4G;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
LAST EDITED: APR 23, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
DESCRIPTION:
The average number of rooms in the operating room section.
2100,4200.049 RECOVERY ROOM I A4CGAMS4G;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 23, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Acute I Care patients in the recovery room section.
2100,4200.05 RECOVERY ROOM II A4CGAMS4G;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 23, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Acute II Care patients in the recovery room section.
2100,4200.051 RECOVERY ROOM III A4CGAMS4G;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 23, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Acute II Care patients in the recovery room section.
2100,4200.052 NO. OF RECOVERY ROOM BEDS A4CGAMS4G;13 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
LAST EDITED: APR 23, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
DESCRIPTION:
The average number of beds in the recovery room section.
2100,4200.053 AMBULATORY CARE I A4CGAMS4G;14 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 23, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Intensive Care patients in the ambulatory care section.
2100,4200.054 AMBULATORY CARE II A4CGAMS4G;15 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 23, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Acute I Care patients in the ambulatory care section.
2100,4200.055 AMBULATORY CARE III A4CGAMS4G;16 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 23, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Acute II Care patients in the ambulatory care section.
2100,4200.056 AMBULATORY CARE IV A4CGAMS4G;17 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 23, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Extended Hospice Care patients in the ambulatory care section.
2100,4200.057 AMBULATORY CARE V A4CGAMS4G;18 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 23, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Minimal Care patients in the ambulatory care section.
2100,4200.058 AMBULATORY SURGERY I A4CGAMS4G;19 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 23, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Intensive Care patients in the ambulatory surgery section.
2100,4200.059 AMBULATORY SURGERY II A4CGAMS4G;20 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 23, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Acute I Care patients in the ambulatory surgery section.
2100,4200.06 AMBULATORY SURGERY III A4CGAMS4G;21 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 23, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Acute II Care patients in the ambulatory surgery section.
2100,4200.061 AMBULATORY SURGERY IV A4CGAMS4G;22 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 23, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Extended Hospice Care patients in the ambulatory surgery section.
2100,4200.062 AMBULATORY SURGERY RECOVERY I A4CGAMS4G;23 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 23, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Intensive Care patients in the ambulatory surgery recovery section.
2100,4200.063 AMBULATORY SURGERY RECOVERY II A4CGAMS4G;24 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 23, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Acute I Care patients in the ambulatory surgery recovery section.
2100,4200.064 AMBULATORY SURG RECOVERY III A4CGAMS4G;25 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 23, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of Acute II Care patients in the ambulatory surgery recovery section.
2100,4201.001 PSYCHIATRIC (RN) A4CGAMS4H;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of RN man-hours worked by nursing service personnel in the psychiatric bed sections.
2100,4201.002 PSYCHIATRIC (LPN) A4CGAMS4H;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of LPN man-hours worked by nursing service personnel in the psychiatric bed sections.
2100,4201.003 PSYCHIATRIC (NA) A4CGAMS4H;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The number of NA man-hours worked by nursing service personnel in the psychiatric bed sections.
2100,4201.004 SURGICAL (RN) A4CGAMS4H;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of RN man-hours worked by nursing service personnel in the surgical bed section.
2100,4201.005 SURGICAL (LPN) A4CGAMS4H;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of LPN man-hours worked by nursing service personnel in the surgical bed section.
2100,4201.006 SURGICAL (NA) A4CGAMS4H;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of NA man-hours worked by nursing service personnel in the surgical bed section.
2100,4201.007 MEDICAL (RN) A4CGAMS4H;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of RN man-hours worked by nursing service personnel in the medical bed section
2100,4201.008 MEDICAL (LPN) A4CGAMS4H;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of LPN man-hours worked by nursing service personnel in the medical bed section.
2100,4201.009 MEDICAL (NA) A4CGAMS4H;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of NA man-hours worked by nursing service personnel in the medical bed section.
2100,4201.01 SPINAL CORD INJURY (RN) A4CGAMS4H;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The number of RN man-hours worked by nursing service personnel in the spinal cord injury bed
section.
2100,4201.011 SPINAL CORD INJURY (LPN) A4CGAMS4H;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The number of LPN man-hours worked by nursing service personnel in the spinal cord injury bed
section.
2100,4201.012 SPINAL CORD INJURY (NA) A4CGAMS4H;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The number of NA man-hours worked by nursing service personnel in the spinal cord injury bed
section.
2100,4201.013 IMMEDIATE CARE (RN) A4CGAMS4H;13 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of RN man-hours worked by nursing service personnel in the immediate care bed section.
2100,4201.014 IMMEDIATE CARE (LPN) A4CGAMS4H;14 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of LPN man-hours worked by nursing service personnel in the immediate care bed section.
2100,4201.015 IMMEDIATE CARE (NA) A4CGAMS4H;15 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of NA man-hours worked by nursing service personnel in the immediate care bed section.
2100,4201.016 NURSING HOME CARE (RN) A4CGAMS4H;16 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of RN man-hours worked by nursing service personnel in the nursing home care section.
2100,4201.017 NURSING HOME CARE (LPN) A4CGAMS4H;17 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of LPN man-hours worked by nursing service personnel in the nursing home care section.
2100,4201.018 NURSING HOME CARE (NA) A4CGAMS4H;18 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of NA man-hours worked by nursing service personnel in the nursing home care section.
2100,4201.019 CRITICAL CARE (RN) A4CGAMS4H;19 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of RN man-hours worked by nursing service personnel in the critical care section.
2100,4201.02 CRITICAL CARE (LPN) A4CGAMS4H;20 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of LPN man-hours worked by nursing service personnel in the critical care section.
2100,4201.021 CRITICAL CARE (NA) A4CGAMS4H;21 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of NA man-hours worked by nursing service personnel in the critical care section.
2100,4201.022 HEMODIALYSIS (RN) A4CGAMS4H;22 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of RN man-hours worked by nursing service personnel in the hemodialysis care section.
2100,4201.023 HEMODIALYSIS (LPN) A4CGAMS4H;23 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of LPN man-hours worked by nursing service personnel in the hemodialysis care section.
2100,4201.024 HEMODIALYSIS (NA) A4CGAMS4H;24 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of NA man-hours worked by nursing service personnel in the hemodialysis care section.
2100,4201.025 OPERATING ROOM (RN) A4CGAMS4H;25 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of RN man-hours worked by nursing service personnel in the operating room.
2100,4201.026 OPERATING ROOM (LPN) A4CGAMS4H;26 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of LPN man-hours worked by nursing service personnel in the operating room.
2100,4201.027 OPERATING ROOM (NA) A4CGAMS4H;27 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of NA man-hours worked by nursing service personnel in the operating room.
2100,4201.028 ESCORT ACTIVITIES (RN) A4CGAMS4H;28 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of RN man-hours worked by nursing service personnel in escort activities.
2100,4201.029 ESCORT ACTIVITIES (LPN) A4CGAMS4H;29 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of LPN man-hours worked by nursing service personnel in escort activities.
2100,4201.03 ESCORT ACTIVITIES (NA) A4CGAMS4H;30 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of NA man-hours worked by nursing service personnel in escort activities.
2100,4201.031 DOMICILIARY (RN) A4CGAMS4H;31 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of RN man-hours worked by nursing service personnel in the domiciliary.
2100,4201.032 DOMICILIARY (LPN) A4CGAMS4H;32 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of LPN man-hours worked by nursing service personnel in the domiciliary.
2100,4201.033 DOMICILIARY (NA) A4CGAMS4H;33 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of NA man-hours worked by nursing service personnel in the domiciliary.
2100,4201.034 AMBULATORY CARE (RN) A4CGAMS4H;34 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of RN man-hours worked by nursing service personnel in the ambulatory care section.
2100,4201.035 AMBULATORY CARE (LPN) A4CGAMS4H;35 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of LPN man-hours worked by nursing service personnel in the ambulatory care section.
2100,4201.036 AMBULATORY CARE (NA) A4CGAMS4H;36 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of NA man-hours worked by nursing service personnel in the ambulatory care section.
2100,4201.037 HOSPITAL BASED HOME CARE (RN) A4CGAMS4H;37 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The number of RN man-hours worked by nursing service personnel in the hospital based home care
program.
2100,4201.038 HOSPITAL BASED HOME CARE (LPN) A4CGAMS4H;38 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The number of LPN man-hours worked by nursing service personnel in the hospital based home care
program.
2100,4201.039 HOSPITAL BASED HOME CARE (NA) A4CGAMS4H;39 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The number of NA man-hours worked by nursing service personnel in the hospital based home care
program.
2100,4201.04 SATELLITE CLINICS (RN) A4CGAMS4H;40 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of RN man-hours worked by nursing service personnel in the satellite clinics.
2100,4201.041 SATELLITE CLINICS (LPN) A4CGAMS4H;41 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of LPN man-hours worked by nursing service personnel in the satellite clinics.
2100,4201.042 SATELLITE CLINICS (NA) A4CGAMS4I;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of NA man-hours worked by nursing service personnel in the satellite clinics.
2100,4201.043 RECOVERY ROOM (RN) A4CGAMS4I;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of RN man-hours worked by nursing service personnel in the recovery room.
2100,4201.044 RECOVERY ROOM (LPN) A4CGAMS4I;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of LPN man-hours worked by nursing service personnel in the recovery room.
2100,4201.045 RECOVERY ROOM (NA) A4CGAMS4I;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of NA man-hours worked by nursing service personnel in the recovery room.
2100,4201.046 ALCOHOL/DRUG DEP TRMT (RN) A4CGAMS4I;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The number of RN man-hours worked by nursing service personnel in the alcohol and drug dependence
treatment section.
2100,4201.047 ALCOHOL/DRUG DEP TRMT (LPN) A4CGAMS4I;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The number of LPN man-hours worked by nursing service personnel in the alcohol and drug dependence
treatment section.
2100,4201.048 ALCOHOL/DRUG DEP TRMT (NA) A4CGAMS4I;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The number of NA man-hours worked by nursing service personnel in the alcohol and drug dependence
treatment section.
2100,4201.049 AMBULATORY SURGERY (RN) A4CGAMS4I;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The number of RN man-hours worked by nursing service personnel in the ambulatory surgery care
section.
2100,4201.05 AMBULATORY SURGERY (LPN) A4CGAMS4I;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The number of LPN man-hours worked by nursing service personnel in the ambulatory surgery care
section.
2100,4201.051 AMBULATORY SURGERY (NA) A4CGAMS4I;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The number of NA man-hours worked by nursing service personnel in the ambulatory surgery care
section.
2100,4201.052 AMBULATORY SURG RECOVERY (RN) A4CGAMS4I;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The number of RN man-hours worked by nursing service personnel in the ambulatory surgery recovery
care section.
2100,4201.053 AMBULATORY SURG RECOVERY (LPN) A4CGAMS4I;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The number of LPN man-hours worked by nursing service personnel in the ambulatory surgery recovery
care section.
2100,4201.054 AMBULATORY SURG RECOVERY (NA) A4CGAMS4I;13 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The number of NA man-hours worked by nursing service personnel in the ambulatory surgery recovery
care section.
2100,4202.001 RN FTEE CEILING A4CGAMS4J;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L(
$P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999.9, 1 Decimal Digit
DESCRIPTION:
The RN ceiling (FTEE) for nursing personnel assigned to Nursing Service only.
2100,4202.002 LPN FTEE CEILING A4CGAMS4J;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L(
$P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999.9, 1 Decimal Digit
DESCRIPTION:
The LPN ceiling (FTEE) for nursing personnel assigned to Nursing Service only.
2100,4202.003 NA FTEE CEILING A4CGAMS4J;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L(
$P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999.9, 1 Decimal Digit
DESCRIPTION:
The NA ceiling (FTEE) for nursing personnel assigned to Nursing Service only.
2100,4202.004 CLERICAL FTEE CEILING A4CGAMS4J;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L(
$P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999.9, 1 Decimal Digit
DESCRIPTION:
The clerical ceiling (FTEE) for Nursing Service.
2100,4202.005 ADMIN OFFICER FTEE CEILING A4CGAMS4J;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($
P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
DESCRIPTION: The ceiling (FTEE) for persons assigned to Nursing Service who serve as Administrative Officers.
They are not to be counted under clerical.
2100,4202.006 CLINICAL SPEC FTEE CEILING A4CGAMS4J;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($
P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
DESCRIPTION:
The RN ceiling (FTEE) for Clinical Specialist.
2100,4202.007 NURSE PRAC FTEE CEILING A4CGAMS4J;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($
P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
DESCRIPTION:
The RN ceiling (FTEE) for Nurse Practitioner.
2100,4202.008 INFECT CTRL FTEE CEILING A4CGAMS4J;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($
P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
DESCRIPTION:
The RN ceiling (FTEE) for Infection Control Nurse.
2100,4202.009 PUB HLTH FTEE CEILING A4CGAMS4J;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($
P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
DESCRIPTION:
The RN ceiling (FTEE) for Public Health Coordinator.
2100,4202.01 STAFF NURSE FTEE CEILING A4CGAMS4J;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($
P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
DESCRIPTION: The RN ceiling (FTEE) for any registered nurse working in direct patient care within a bed unit or
clinical/diagnostic area (i.e., specialized medical program).
2100,4202.011 CHIEF NURSE FTEE CEILING A4CGAMS4J;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($
P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
DESCRIPTION:
The RN ceiling (FTEE) for Chief Nurse.
2100,4202.012 ASST CHIEF FTEE CEILING A4CGAMS4J;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($
P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
DESCRIPTION:
The RN ceiling (FTEE) for Assistant Chief Nurse.
2100,4202.013 ASSOC CHIEF FTEE CEILING A4CGAMS4J;13 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($
P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
DESCRIPTION:
The RN ceiling (FTEE) for Associate Chief Nurse.
2100,4202.014 ADMN SUPERVISOR FTEE CEILING A4CGAMS4J;14 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($
P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
DESCRIPTION:
The RN ceiling (FTEE) for Supervisor.
2100,4202.015 ADMN HEAD NURSE FTEE CEILING A4CGAMS4J;15 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($
P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
DESCRIPTION:
The RN ceiling (FTEE) for Head Nurse.
2100,4202.016 OTHER ADMN FTEE CEILING A4CGAMS4J;16 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($
P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
DESCRIPTION: The RN ceiling (FTEE) for other than Staff Nurse. Include trainees assigned to nursing service,
ombudsmen (i.e., patient advocates), quality assurance coordinators or utilization review
coordinators. Oncology nurses not classified as clinical specialists/nurse practitioners should be
included under this category.
2100,4202.017 RESEARCH FTEE CEILING A4CGAMS4J;17 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($
P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
DESCRIPTION:
The RN ceiling (FTEE) for Nurse Researcher.
2100,4202.018 ASSOC CHIEF RES FTEE CEILING A4CGAMS4J;18 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($
P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
DESCRIPTION:
The RN ceiling (FTEE) for Associate Chief, Research Section, Nursing Service.
2100,4202.019 ASSOC CHIEF ED FTEE CEILING A4CGAMS4J;19 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($
P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
DESCRIPTION:
The RN ceiling (FTEE) for Associate Chief, Education Section, Nursing Service.
2100,4202.02 INSTRUCTOR FTEE CEILING A4CGAMS4J;20 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($
P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
DESCRIPTION:
The RN ceiling (FTEE) for Nurse Instructor.
2100,4202.021 RN POSITIONS FILLED A4CGAMS4J;21 NUMBER
RN POSITIONS FILLED EOQ
INPUT TRANSFORM: K:+X'=X!(X>9999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L(
$P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999.9, 1 Decimal Digit
DESCRIPTION:
The number of Nursing Service RN positions filled (FTEE).
2100,4202.022 LPN POSITIONS FILLED A4CGAMS4J;22 NUMBER
LPN POSITIONS FILLED EOQ
INPUT TRANSFORM: K:+X'=X!(X>9999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L(
$P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999.9, 1 Decimal Digit
DESCRIPTION:
The number of Nursing Service LPN positions filled (FTEE).
2100,4202.023 NA POSITIONS FILLED A4CGAMS4J;23 NUMBER
NA POSITIONS FILLED EOQ
INPUT TRANSFORM: K:+X'=X!(X>9999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L(
$P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999.9, 1 Decimal Digit
DESCRIPTION:
The number of Nursing Service NA positions filled (FTEE).
2100,4202.024 CLERICAL POSITIONS FILLED A4CGAMS4J;24 NUMBER
CLERICAL POSITIONS FILLED EOQ
INPUT TRANSFORM: K:+X'=X!(X>9999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("0000",$L($P(Y,".",1))+1,4)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L(
$P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 9999.9, 1 Decimal Digit
DESCRIPTION:
The number of Nursing Service clerical positions filled (FTEE).
2100,4202.025 ADMIN OFFICER POSITIONS FILLED A4CGAMS4J;25 NUMBER
ADMIN OFFICER POSITIONS FILLED EOQ
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($
P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
DESCRIPTION: The number of Administrative Officer positions filled (FTEE). They are not to be counted under the
clerical category.
2100,4202.026 CLINICAL SPEC POSITIONS FILLED A4CGAMS4J;26 NUMBER
CLINICAL SPEC POSITIONS FILLED EOQ
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($
P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
DESCRIPTION:
The number of positions filled (FTEE) for Clinical Specialist.
2100,4202.027 NURSE PRAC POSITIONS FILLED A4CGAMS4J;27 NUMBER
NURSE PRAC POSITIONS FILLED EOQ
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($
P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
DESCRIPTION:
The number of positions filled (FTEE) for Nurse Practitioner.
2100,4202.028 INFECT CTRL POSITIONS FILLED A4CGAMS4J;28 NUMBER
INFECT CONTROL POSITIONS FILLED EOQ
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($
P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
DESCRIPTION:
The number of positions filled (FTEE) for Infection Control Nurse.
2100,4202.029 PUB HLTH POSITIONS FILLED A4CGAMS4J;29 NUMBER
PUBLIC HEALTH POSITIONS FILLED EOQ
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($
P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
DESCRIPTION:
The number of positions filled (FTEE) for Public Health Coordinator.
2100,4202.03 STAFF NURSE POSITIONS FILLED A4CGAMS4J;30 NUMBER
STAFF NURSE POSITIONS FILLED EOQ
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($
P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
DESCRIPTION: The number of positions filled (FTEE) for Staff Nurse. A Staff Nurse is any registered nurse
working in direct patient care within a bed unit or clinical/diagnostic area (i.e., specialized
medical program).
2100,4202.031 CHIEF NURSE POSITIONS FILLED A4CGAMS4J;31 NUMBER
CHIEF NURSE POSITIONS FILLED EOQ
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($
P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
DESCRIPTION:
The number of positions filled (FTEE) for Chief Nurse.
2100,4202.032 ASST CHIEF POSITIONS FILLED A4CGAMS4J;32 NUMBER
ASST CHIEF POSITIONS FILLED EOQ
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($
P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
DESCRIPTION:
The number of positions filled (FTEE) for Assistant Chief Nurse.
2100,4202.033 ASSOC CHIEF POSITIONS FILLED A4CGAMS4J;33 NUMBER
ASSOC CHIEF POSITIONS FILLED EOQ
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($
P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
DESCRIPTION:
The number of positions filled (FTEE) for Associate Chief, Nursing Service.
2100,4202.034 SUPERVISOR POSITIONS FILLED A4CGAMS4J;34 NUMBER
SUPERVISOR POSITIONS FILLED EOQ
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($
P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
DESCRIPTION:
The number of positions filled (FTEE) for Supervisor.
2100,4202.035 HEAD NURSE POSITIONS FILLED A4CGAMS4J;35 NUMBER
HEAD NURSE POSITIONS FILLED EOQ
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($
P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
DESCRIPTION:
The number of positions filled (FTEE) for Head Nurse.
2100,4202.036 OTHER POSITIONS FILLED A4CGAMS4J;36 NUMBER
OTHER POSITIONS FILLED EOQ
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($
P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
DESCRIPTION: The number of positions filled (FTEE) for other than Staff Nurse. Include trainees assigned to
Nursing Service, ombudsmen (i.e., patient advocates), quality assurance coordinators or utilization
review coordinators. Oncology nurses not classified as clinical specialists/nurse practitioners
should be included under this category.
2100,4202.037 RESEARCH POSITIONS FILLED A4CGAMS4J;37 NUMBER
RESEARCH POSITIONS FILLED EOQ
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($
P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
DESCRIPTION:
The number of positions filled (FTEE) for Nurse Researcher.
2100,4202.038 ASSOC CHIEF RESHR POSITIONS A4CGAMS4J;38 NUMBER
ASSOC CHIEF RESHR POSITIONS FILLED EOQ
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($
P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
DESCRIPTION:
The number of positions filled (FTEE) for Associate Chief, Research Section; Nursing Service.
2100,4202.039 ASSOC CHIEF ED POSITIONS A4CGAMS4J;39 NUMBER
ASSOC CHIEF ED POSITIONS FILLED EOQ
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($
P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
DESCRIPTION:
The number of positions filled (FTEE) for Associate Chief, Education Section; Nursing Service.
2100,4202.04 INSTRUCTOR POSITIONS FILLED A4CGAMS4J;40 NUMBER
INSTRUCTOR POSITIONS FILLED EOQ
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S Y=$E("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1)_$P(Y,".",2)_$E("0",$L($
P(Y,".",2))+1,1)
LAST EDITED: APR 27, 1990
HELP-PROMPT: Type a Number between 0 and 999.9, 1 Decimal Digit
DESCRIPTION:
The number of positions filled (FTEE) for Nurse Instructor.
2100,4217.001 561 (SUPERVISORY HOURS) A4CGAMS4K;1 NUMBER
561 (OFFICE OF THE CHIEF SUPERVISORY HOURS)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The total number of actual supervisory hours worked for the Office of the Chief, Building
Management Service.
2100,4217.002 562 (SUPERVISORY HOURS) A4CGAMS4K;2 NUMBER
562 (ENVIRONMENTAL CARE SUPERVISORY HOURS)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total number of actual supervisory hours worked for Pest Control Operations.
2100,4217.003 563 (SUPERVISORY HOURS) A4CGAMS4K;3 NUMBER
563 (ENVIRONMENTAL CARE SUPERVISORY HOURS)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total number of actual supervisory hours worked for Ground Management Operations.
2100,4217.004 564 (SUPERVISORY HOURS) A4CGAMS4K;4 NUMBER
564 (ENVIRONMENTAL CARE SUPERVISORY HOURS)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total number of actual supervisory hours worked for Sanitation Operations.
2100,4217.005 565 (SUPERVISORY HOURS) A4CGAMS4K;5 NUMBER
565 (ENVIRONMENTAL CARE SUPERVISORY HOURS)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total number of actual supervisory hours worked for Bed Services Operations.
2100,4217.006 566 (SUPERVISORY HOURS) A4CGAMS4K;6 NUMBER
566 (ENVIRONMENTAL CARE SUPERVISORY HOURS)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total number of actual supervisory hours worked for Glazing Maintenance Operations.
2100,4217.007 567 (SUPERVISORY HOURS) A4CGAMS4K;7 NUMBER
567 (ENVIRONMENTAL CARE SUPERVISORY HOURS)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total number of actual supervisory hours worked for Waste Management Operations.
2100,4217.008 570 (SUPERVISORY HOURS) A4CGAMS4K;8 NUMBER
570 (TEXTILE CARE SUPERVISORY HOURS)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total number of actual supervisory hours worked for Laundry and Dry Cleaning Operations.
2100,4217.009 571 (SUPERVISORY HOURS) A4CGAMS4K;9 NUMBER
571 (TEXTILE CARE SUPERVISORY HOURS)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total number of actual supervisory hours worked for Linen Operations.
2100,4217.01 572 (SUPERVISORY HOURS) A4CGAMS4K;10 NUMBER
572 (TEXTILE CARE SUPERVISORY HOURS)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total number of actual supervisory hours worked for Uniform Operations.
2100,4217.011 573 (SUPERVISORY HOURS) A4CGAMS4K;11 NUMBER
573 (TEXTILE CARE SUPERVISORY HOURS)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total number of actual supervisory hours worked for Patients Assistance Operations.
2100,4217.012 575 (SUPERVISORY HOURS) A4CGAMS4K;12 NUMBER
575 (INTERIOR DESIGN SUPERVISORY HOURS)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total number of actual supervisory hours worked for Interior Design Operations.
2100,4217.013 577 (SUPERVISORY HOURS) A4CGAMS4K;13 NUMBER
577 (INTERIOR DESIGN SUPERVISORY HOURS)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total number of actual supervisory hours worked for Directional Systems Operations.
2100,4217.014 561 (LABOR HOURS) A4CGAMS4L;1 NUMBER
561 (OFFICE OF THE CHIEF LABOR HOURS)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The total number of actual direct labor staff hours worked for the Office of the Chief, Building
Management Services.
2100,4217.015 562 (LABOR HOURS) A4CGAMS4L;2 NUMBER
562 (ENVIRONMENTAL CARE LABOR HOURS)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total number of actual direct labor staff hours worked for Pest Control Operations.
2100,4217.016 563 (LABOR HOURS) A4CGAMS4L;3 NUMBER
563 (ENVIRONMENTAL CARE LABOR HOURS)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total number of actual direct labor staff hours worked for Ground Management Operations.
2100,4217.017 564 (LABOR HOURS) A4CGAMS4L;4 NUMBER
564 (ENVIRONMENTAL CARE LABOR HOURS)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total number of actual direct labor staff hours worked Sanitation Operations.
2100,4217.018 565 (LABOR HOURS) A4CGAMS4L;5 NUMBER
565 (ENVIRONMENTAL CARE LABOR HOURS)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total number of actual direct labor staff hours worked Bed Services Operations.
2100,4217.019 566 (LABOR HOURS) A4CGAMS4L;6 NUMBER
566 (ENVIRONMENTAL CARE LABOR HOURS)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total number of actual direct labor staff hours worked for Glazing Maintenance Operations.
2100,4217.02 567 (LABOR HOURS) A4CGAMS4L;7 NUMBER
567 (ENVIRONMENTAL CARE LABOR HOURS)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total number of actual direct labor staff hours worked for Waste Management Operations.
2100,4217.021 570 (LABOR HOURS) A4CGAMS4L;8 NUMBER
570 (TEXTILE CARE LABOR HOURS)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total number of actual direct labor staff hours worked for Laundry and Dry Cleaning Operations.
2100,4217.022 571 (LABOR HOURS) A4CGAMS4L;9 NUMBER
571 (TEXTILE CARE LABOR HOURS)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total number of actual direct labor staff hours worked for Linen Operations.
2100,4217.023 572 (LABOR HOURS) A4CGAMS4L;10 NUMBER
572 (TEXTILE CARE LABOR HOURS)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total number of actual direct labor staff hours worked for Uniform Operations.
2100,4217.024 573 (LABOR HOURS) A4CGAMS4L;11 NUMBER
573 (TEXTILE CARE LABOR HOURS)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total number of actual direct labor staff hours worked for Patients Assistance Operations.
2100,4217.025 575 (LABOR HOURS) A4CGAMS4L;12 NUMBER
575 (INTERIOR DESIGN LABOR HOURS)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total number of actual direct labor staff hours worked for Interior Design Operations.
2100,4217.026 577 (LABOR HOURS) A4CGAMS4L;13 NUMBER
577 (INTERIOR DESIGN LABOR HOURS)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total number of actual direct labor staff hours worked for Directional System Operations.
2100,4217.027 561 (THERAPY HOURS) A4CGAMS4M;1 NUMBER
561 (OFFICE OF THE CHIEF THERAPY HOURS)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The total paid incentive therapy staff hours for the Office of the Chief, Building Management
Service.
2100,4217.028 563 (THERAPY HOURS) A4CGAMS4M;2 NUMBER
563 (ENVIRONMENTAL CARE THERAPY HOURS)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total paid incentive therapy staff hours for Ground Management Operations.
2100,4217.029 564 (THERAPY HOURS) A4CGAMS4M;3 NUMBER
564 (ENVIRONMENTAL CARE THERAPY HOURS)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total paid incentive therapy staff hours for Sanitation Operations.
2100,4217.03 565 (THERAPY HOURS) A4CGAMS4M;4 NUMBER
565 (ENVIRONMENTAL CARE THERAPY HOURS)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total paid incentive therapy staff hours for Bed Services Operations.
2100,4217.031 566 (THERAPY HOURS) A4CGAMS4M;5 NUMBER
566 (ENVIRONMENTAL CARE THERAPY HOURS)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total paid incentive therapy staff hours for Glazing Maintenance Operations.
2100,4217.032 567 (THERAPY HOURS) A4CGAMS4M;6 NUMBER
567 (ENVIRONMENTAL CARE THERAPY HOURS)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total paid incentive therapy staff hours for Waste Management Operations.
2100,4217.033 570 (THERAPY HOURS) A4CGAMS4M;7 NUMBER
570 (TEXTILE CARE THERAPY HOURS)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total paid incentive therapy staff hours for Laundry and Dry Cleaning Operations.
2100,4217.034 571 (THERAPY HOURS) A4CGAMS4M;8 NUMBER
571 (TEXTILE CARE THERAPY HOURS)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total paid incentive therapy staff hours for Linen Operations.
2100,4217.035 572 (THERAPY HOURS) A4CGAMS4M;9 NUMBER
572 (TEXTILE CARE THERAPY HOURS)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total paid incentive therapy staff hours for Uniform Operations.
2100,4217.036 573 (THERAPY HOURS) A4CGAMS4M;10 NUMBER
573 (TEXTILE CARE THERAPY HOURS)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total paid incentive therapy staff hours for Patients Assistance Operations.
2100,4217.037 575 (THERAPY HOURS) A4CGAMS4M;11 NUMBER
575 (INTERIOR DESIGN THERAPY HOURS)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total paid incentive therapy staff hours for Interior Design Operations.
2100,4217.038 577 (THERAPY HOURS) A4CGAMS4M;12 NUMBER
577 (INTERIOR DESIGN THERAPY HOURS)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total paid incentive therapy staff hours for Directional System Operations.
2100,4217.039 OT/COMP HOURS WORKED A4CGAMS4N;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The total overtime and compensatory hours worked by all employees within Building Management
Service.
2100,4217.04 VACANT BED UNITS SERVICED A4CGAMS4N;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION: The total units serviced. Vacant bed units are generally identified as: terminal discharge
cleaning, interward transfer, vacant bed maintenance, etc.
2100,4217.041 DIET (FTEE ASSIGNED) A4CGAMS4N;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
DESCRIPTION:
The total number of Sanitation Operations FTEE who worked in Dietetics.
2100,4217.042 OR (FTEE ASSIGNED) A4CGAMS4N;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
DESCRIPTION:
The total number of Sanitation Operations FTEE who worked in Surgical Suite (OR).
2100,4217.043 NHQ (FTEE ASSIGNED) A4CGAMS4N;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
DESCRIPTION:
The total number of Sanitation Operations FTEE who worked in Non-Housekeeping Quarters.
2100,4217.044 HQ (FTEE ASSIGNED) A4CGAMS4N;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
DESCRIPTION:
The total number of Sanitation Operations FTEE who worked in Housekeeping Quarters.
2100,4217.045 CANT (FTEE ASSIGNED) A4CGAMS4N;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
DESCRIPTION:
The total number of Sanitation Operations FTEE who worked in Canteen.
2100,4217.046 FURNITURE HANDLING (FTEE) A4CGAMS4N;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
DESCRIPTION: The total number of Furniture Handling Operations FTEE who worked in Interior Design. This includes
moving, assembly, set-up, etc.
2100,4217.047 G-1 STAFFING STANDARDS A4CGAMS4N;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION: Program Guide, Building Management Service Manpower Determination Methodology for Laundry
Operations: M-1, Part VII, G-1. Enter zeros until further instructions.
2100,4217.048 G-2 STAFFING STANDARDS A4CGAMS4N;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION: The number of supervisory and direct labor staff hours required for Sanitation Operations as
developed by utilizing Program Guide G-2. Exclude administrative and clerical staff.
2100,4218.001 PSYCHIATRY (NET SQUARE FEET) A4CGAMS4O;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The total net square feet maintained by Sanitation Operations Labor for Psychiatry.
2100,4218.002 INTERMEDIATE (NET SQUARE FEET) A4CGAMS4O;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The total net square feet maintained by Sanitation Operations Labor for Intermediate Care.
2100,4218.003 MEDICINE (NET SQUARE FEET) A4CGAMS4O;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The total net square feet maintained by Sanitation Operations Labor for Medicine.
2100,4218.004 NEUROLOGY (NET SQUARE FEET) A4CGAMS4O;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The total net square feet maintained by Sanitation Operations Labor for Neurology.
2100,4218.005 REHAB MEDICINE (NET SQ FEET) A4CGAMS4O;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION: The total net square feet maintained by Sanitation Operations Labor for Rehabilitation Medicine.
This will include Blind Rehabilitation Medicine.
2100,4218.006 SPINAL CORD INJURY (NET SQ FT) A4CGAMS4O;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The total net square feet maintained by Sanitation Operations Labor for Spinal Cord Injury.
2100,4218.007 SURGERY (NET SQUARE FEET) A4CGAMS4O;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The total net square feet maintained by Sanitation Operations Labor for Surgery.
2100,4218.008 NHCU (NET SQUARE FEET) A4CGAMS4O;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The total net square feet maintained by Sanitation Operations Labor for Nursing Home Care Unit.
2100,4218.009 DOMICILIARY (NET SQ FEET) A4CGAMS4O;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The total net square feet maintained by Sanitation Operations Labor for Domiciliary.
2100,4218.01 CLINICS (NET SQUARE FEET) A4CGAMS4O;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION: The total net square feet maintained by Sanitation Operations Labor for Clinics. Include
Outpatient, Mental Hygiene, Day Treatment Center, Day Hospital, Drug Dependence, Alcohol Treatment,
etc. Do not include satellite outpatient clinics.
2100,4218.011 DENTAL (NET SQUARE FEET) A4CGAMS4O;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION: The total net square feet maintained by Sanitation Operations Labor for Dental. Do not include
Central Dental Laboratories.
2100,4218.012 RESEARCH (NET SQUARE FEET) A4CGAMS4O;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION: The total net square feet maintained by Sanitation Operations Labor for Research. Include all
research areas including administrative space.
2100,4218.013 ADMINISTRATIVE (NET SQ FEET) A4CGAMS4O;13 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION: The total net square feet maintained by Sanitation Operations Labor for Administrative areas.
Include Dietetic Service, Canteen, Non-Housekeeping Quarters, and other facility-related functions
not indicated elsewhere. Also, include conference rooms, training rooms and offices not
specifically included elsewhere.
2100,4218.014 OTHER (NET SQUARE FEET) A4CGAMS4O;14 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION: The total net square feet maintained by Sanitation Operations Labor for all other areas. Include
stairwells, corridors, lobbies, vending areas, central dental laboratories, satellite outpatient
clinics, regional medical educational center (RMEC), non-VA organizations, etc.
2100,4218.015 PSYCHIATRY (MAN HOURS) A4CGAMS4P;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total actual staff hours worked by Sanitation Operations Labor for Psychiatry.
2100,4218.016 INTERMEDIATE (MAN HOURS) A4CGAMS4P;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total actual staff hours worked by Sanitation Operations Labor for Intermediate Care.
2100,4218.017 MEDICINE (MAN HOURS) A4CGAMS4P;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total actual staff hours worked by Sanitation Operations Labor for Medicine.
2100,4218.018 NEUROLOGY (MAN HOURS) A4CGAMS4P;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total actual staff hours worked by Sanitation Operations Labor for Neurology.
2100,4218.019 REHAB MEDICINE (MAN HOURS) A4CGAMS4P;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The total actual staff hours worked by Sanitation Operations Labor for Rehabilitation Medicine.
Include Blind Rehabilitation Medicine.
2100,4218.02 SPINAL CORD INJURY (MAN HRS) A4CGAMS4P;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total actual staff hours worked by Sanitation Operations Labor for Spinal Cord Injury.
2100,4218.021 SURGERY (MAN HOURS) A4CGAMS4P;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total actual staff hours worked by Sanitation Operations Labor for Surgery.
2100,4218.022 NHCU (MAN HOURS) A4CGAMS4P;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total actual staff hours worked by Sanitation Operations Labor for Nursing Home Care Unit.
2100,4218.023 DOMICILIARY (MAN HOURS) A4CGAMS4P;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total actual staff hours worked by Sanitation Operations Labor for the Domiciliary.
2100,4218.024 CLINICS (MAN HOURS) A4CGAMS4P;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The total actual staff hours worked by Sanitation Operations Labor for Clinics. Include Outpatient,
Mental Hygiene, Day Treatment Center, Day Hospital, Drug Dependence, Alcohol Treatment, etc. Do not
include satellite outpatient clincs.
2100,4218.025 DENTAL (MAN HOURS) A4CGAMS4P;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The total actual staff hours worked by Sanitation Operations Labor for Dental. Do not include
Central Dental Laboratories.
2100,4218.026 RESEARCH (MAN HOURS) A4CGAMS4P;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The total actual staff hours worked by Sanitation Operations Labor for Research. Include research
administrative space.
2100,4218.027 ADMINISTRATIVE (MAN HOURS) A4CGAMS4P;13 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The total actual staff hours worked by Sanitation Operations Labor for Administrative areas.
Include Dietetic Service, Canteen Service, Non-Housekeeping Quarters and other facility-related
functions not indicated elsewhere. Also include conference rooms, training rooms and offices not
specifically included as part of the operations indicated elsewhere.
2100,4218.028 OTHER (MAN HOURS) A4CGAMS4P;14 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The total actual staff hours worked by Sanitation Operations Labor for other areas. Include all
stairwells, corridors, lobbies, vending areas, central dental laboratories, satellite outpatient
clinics, regional medical education center (RMEC), or non-Va organizations not included elsewhere.
2100,4218.029 FACILITY GROSS SQ FOOTAGE A4CGAMS4P;15 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION:
The gross square footage of the facility.
2100,4219.001 MULTI-ACTIVITY LDRY (LBS) A4CGAMS4Q;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION: The total pounds of soiled laundry processed by VA activities producing linen/uniforms for their
own and for other VA activities and/or for other than VA use.
2100,4219.002 SINGLE-ACTIVITY LDRY (LBS) A4CGAMS4Q;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION: The total pounds of soiled laundry processed by VA activities producing linen/uniforms for their
own use and/or for other than VA use.
2100,4219.003 COMMERCIAL CONTRACT (LBS) A4CGAMS4Q;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION: The total pounds of soiled laundry processed by VA activities contracting with a commercial source
for their laundry/uniforms production.
2100,4219.004 ALL OTHER (LBS) A4CGAMS4Q;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION:
All other pounds of soiled laundry processed for non-VA organizations.
2100,4219.005 UNIFORMS (PIECE COUNT) A4CGAMS4Q;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION: The total number of uniform pieces (shirts and trousers are considered separate pieces) processed
for each medical care facility whether processed by multi-activity, single activity, or commercial
contract.
2100,4219.006 PATIENT'S CLOTHING (COUNT) A4CGAMS4Q;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION: The total number of patient's clothing pieces processed for each medical care facility, whether
processed by multi-activity, single- activity, or commercial contract.
2100,4219.007 DIETETICS (PIECE COUNT) A4CGAMS4Q;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The total number of linen and uniform pieces issued to Dietetic Service.
2100,4219.008 CANTEEN (PIECE COUNT) A4CGAMS4Q;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The total number of linen and uniform pieces issued to Canteen Service.
2100,4219.009 LAUNDRY SQUARE FOOTAGE A4CGAMS4Q;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION: The net square footage encompassing the laundry production process (i.e., soil storage and sorting,
wash condition, dry, iron, fold, or otherwise preparing linen prior to storage for distribution).
Include respective locker, lounge, toilet, shower, and administrative areas. Surgical pack
preparation and linen/uniform mending are linen functions and not part of the laundry production
process.
2100,4219.01 SATELLITE FACILITY (1) A4CGAMS4Q;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION: Multi-activity laundries will enter the three digit VA medical care facility number for the
satellite served.
2100,4219.011 SATELLITE FACILITY (2) A4CGAMS4Q;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION: Multi-activity laundries will enter the three digit VA medical care facility number for the
satellite served.
2100,4219.012 SATELLITE FACILITY (3) A4CGAMS4Q;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION: Multi-activity laundries will enter the three digit VA medical care facility number for the
satellite served.
2100,4219.013 SATELLITE FACILITY (4) A4CGAMS4Q;13 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION: Multi-activity laundries will enter the three digit VA medical care facility number for the
satellite served.
2100,4219.014 SATELLITE FACILITY (5) A4CGAMS4Q;14 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION: Multi-activity laundries will enter the three digit VA medical care facility number for the
satellite served.
2100,4219.015 SATELLITE FACILITY (6) A4CGAMS4Q;15 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION: Multi-activity laundries will enter the three digit VA medical care facility number for the
satellite served.
2100,4219.016 PSYCHIATRY (LBS ISSUED) A4CGAMS4Q;16 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The total pounds of linen issued, not including uniforms, to Psychiatry.
2100,4219.017 INTERMEDIATE (LBS ISSUED) A4CGAMS4Q;17 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The total pounds of linen issued, not including uniforms, to Intermediate Care.
2100,4219.018 MEDICINE (LBS ISSUED) A4CGAMS4Q;18 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The total pounds of linen issued, not including uniforms, to Medicine.
2100,4219.019 NEUROLOGY (LBS ISSUED) A4CGAMS4Q;19 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The total pounds of linen issued, not including uniforms, to Neurology.
2100,4219.02 REHAB MEDICINE (LBS ISSUED) A4CGAMS4Q;20 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION: The total pounds of linen issued, not including uniforms, to Rehabilitation Medicine. Include Blind
Rehabilitation Medicine.
2100,4219.021 SPINAL CORD INJURY (LBS ISS) A4CGAMS4Q;21 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The total pounds of linen issued, not including uniforms, to Spinal Cord Injury.
2100,4219.022 SURGERY (LBS ISSUED) A4CGAMS4Q;22 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The total pounds of linen issued, not including uniforms, to Surgery.
2100,4219.023 NHCU (LBS ISSUED) A4CGAMS4Q;23 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The total pounds of linen issued, not including uniforms, to Nursing Home Care Unit.
2100,4219.024 DOMICILIARY (LBS ISSUED) A4CGAMS4Q;24 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The total pounds of linen issued, not including uniforms, to the Domiciliary.
2100,4219.025 CLINICS (LBS ISSUED) A4CGAMS4Q;25 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION: The total pounds of linen issued, not including uniforms, to the Clinics. Include Outpatient,
Mental Hygiene, Day Treatment Center, Day Hospital, Drug Dependence, Alcohol Treatment, etc. Do not
include satellite outpatient clinics.
2100,4219.026 DENTAL (LBS ISSUED) A4CGAMS4Q;26 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION: The total pounds of linen issued, not including uniforms, to Dental. Do not include Central Dental
Laboratories.
2100,4219.027 RESEARCH (LBS ISSUED) A4CGAMS4Q;27 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The total pounds of linen issued, not including uniforms, to Research.
2100,4219.028 ADMINISTRATIVE (LBS ISSUED) A4CGAMS4Q;28 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION: The total pounds of linen issued, not including uniforms, to Administrative. Includes Dietetic
Service, Canteen Service, Non-Housekeeping Quarters, OD Rooms, and other facility-related functions
not indicated elsewhere. Also, include conference rooms, training rooms, and offices not
specifically indicated elsewhere.
2100,4219.029 OTHER (LBS ISSUED) A4CGAMS4Q;29 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION: The total pounds of linen issued, not including uniforms, to all other areas. Include regional
medical education center (RMEC), regional offices, central dental laboratories, satellite
outpatient clinics, or non-VA organizations not included as part of the operations listed
elsewhere.
2100,4219.03 UTILITY COST A4CGAMS4Q;30 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The total cost for in-house laundry utilities. This amount should equal the monthly cost transfer
reports submitted by Engineering Service to Fiscal Service.
2100,4220.001 OFFICE OF THE CHIEF A4CGAMS4R;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 10, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The total hours for all contracted employee staff hours in the Office of the Chief including
management, supervisory, direct labor, and clerical employees.
2100,4220.002 ENVIRONMENTAL CARE A4CGAMS4R;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 10, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The total hours for all contracted employee staff hours in Environmental Care including management,
supervisory, direct labor, and clerical employees.
2100,4220.003 TEXTILE CARE A4CGAMS4R;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 10, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The total hours for all contracted employee staff hours in Textile Care including management,
supervisory, direct labor, and clerical employees.
2100,4220.004 INTERIOR DESIGN A4CGAMS4R;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 10, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The total hours for all contracted employee staff hours in Interior Design including management,
supervisory, direct labor, and clerical employees.
2100,4220.005 VOLUNTEER HOURS A4CGAMS4R;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 10, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total hours donated by volunteers for all cost center assignments.
2100,4220.006 NON-PAID HOURS A4CGAMS4R;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 10, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The total non-paid hours such as non-paid incentive therapy, etc., for all cost centers. Exclude
all reported volunteer hours.
2100,4224.001 MEAT, FISH, ETC. TOTAL COST FHAMS4A;1 NUMBER
MEAT, FISH, POULTRY, EGGS & CONV ENTREES TOTAL COST
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
LAST EDITED: APR 30, 1990
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
2100,4224.002 MILK TOTAL COST FHAMS4A;2 NUMBER
MILK/MILK PROD TOTAL COST
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
LAST EDITED: APR 30, 1990
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
2100,4224.003 FRUITS/VEGS TOTAL COST FHAMS4A;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
LAST EDITED: APR 30, 1990
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
2100,4224.004 BREAD, ETC. TOTAL COST FHAMS4A;4 NUMBER
BREAD, FLOUR, CEREAL, ETC. TOTAL COST
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
LAST EDITED: APR 30, 1990
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
2100,4224.005 NUT. PROD. TOTAL COST FHAMS4A;5 NUMBER
COMM NUTR PROD TOTAL COST
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
LAST EDITED: APR 30, 1990
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
2100,4224.006 MISC. TOTAL COST FHAMS4A;6 NUMBER
MISCELLANEOUS FOODS TOTAL COST
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
LAST EDITED: APR 30, 1990
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
2100,4224.007 INVENTORY TOTAL VALUE FHAMS4A;7 NUMBER
INVENTORY TOTAL VALUE EOP
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
LAST EDITED: APR 30, 1990
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
2100,4224.008 INPATIENT MEALS FHAMS4A;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
LAST EDITED: APR 30, 1990
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
2100,4224.009 OUTPATIENT MEALS FHAMS4A;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
LAST EDITED: APR 30, 1990
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
2100,4224.01 PAID MEALS FHAMS4A;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
LAST EDITED: APR 30, 1990
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
2100,4224.011 GRATUITOUS MEALS FHAMS4A;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
LAST EDITED: APR 30, 1990
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
2100,4224.012 TOTAL MEALS SERVED FHAMS4A;12 NUMBER
TOTAL DAILY MEALS SERVED
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
LAST EDITED: APR 30, 1990
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
2100,4264.001 HOBBIES (HOURS) A4CGAMS4S;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 18, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION: The number of program hours needed by the staff to conduct hobbies (i.e., programs focused towards
arts, crafts, collections, clubs, etc).
2100,4264.002 MUSIC (HOURS) A4CGAMS4S;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 18, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION: The number of program hours needed by the staff to conduct music (i.e., programs utilizing the
basic tools of music as a medium in which the patient is an active participant).
2100,4264.003 GAMES/SPORTS/ATHLETICS (HRS) A4CGAMS4S;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 18, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION: The number of program hours needed by the staff to conduct games, sports and athletics (i.e.,
individual, dual and other group activities in nature).
2100,4264.004 SPECIAL EVENTS (HOURS) A4CGAMS4S;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 18, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION: The number of program hours needed by the staff to conduct special events (i.e., all programs and
celebrations which are not scheduled monthly).
2100,4264.005 DANCE (HOURS) A4CGAMS4S;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 18, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION: The number of program hours needed by the staff to conduct dances (i.e., all programs that engage,
teach or encourage patients in any form of basic dance movement and rhythmic action).
2100,4264.006 CREATIVE COMMUNICATION (HRS) A4CGAMS4S;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 18, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION: The number of program hours needed by the staff to conduct creative communication (i.e., all
programs using reading, speaking, writing, radio/TV production, etc., in which the primary emphasis
is on creative use of these media).
2100,4264.007 SOCIAL RECREATION (HOURS) A4CGAMS4S;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 18, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION: The number of program hours needed by the staff to conduct social recreation (i.e., programs such
as parties, coffee hours, ward visitations, etc., which are adapted and conducted to provide
opportunity for social functioning and personal interaction).
2100,4264.008 OUTDOOR RECREATION (HOURS) A4CGAMS4S;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 18, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION: The number of program hours needed by the staff to conduct outdoor recreation (i.e., programs which
have their main focus on nature and outdoor appreciation, study and skill development in activities
such as fishing, skiing, cycling, etc).
2100,4264.009 PHYSICAL FITNESS (HOURS) A4CGAMS4S;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 18, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION: The number of program hours needed by the staff to conduct physical fitness (i.e., programs which
stress basic improvement or maintenance of physical conditioning.
2100,4264.01 SPECTATOR EVENTS (HOURS) A4CGAMS4S;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 18, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION: The number of program hours needed by the staff to conduct spectator events (i.e., planned programs
in which principal involvement of patients is that of observing such activities as movies, shows,
sporting events, etc).
2100,4264.011 LEISURE/EDUC/COUNSEL (HRS) A4CGAMS4S;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 18, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION: The number of program hours needed by the staff to conduct leisure/ education/counseling (i.e.,
programs in which patient leisure problems are assessed, and counseling techniques are
predominately used for specific patients in group or individual sessions to develop decision making
and problem solving skills, related to leisure participation).
2100,4264.012 SPECIAL THERAPY (HOURS) A4CGAMS4S;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y
LAST EDITED: APR 18, 1990
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION: The number of program hours needed by the staff to conduct special programs (i.e., programs which
are designed to meet specific needs that are not listed in other categories such as psychodrama,
individual or group therapy, reality orientation, sensory integration, etc).
2100,4264.013 HOBBIES (ATTENDANCE) A4CGAMS4S;13 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of patients attending all hobby programs.
2100,4264.014 MUSIC (ATTENDANCE) A4CGAMS4S;14 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of patients attending all music programs.
2100,4264.015 GAMES/SPORTS/ATH (ATTENDANCE) A4CGAMS4S;15 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of patients attending all games/sports/athletic programs.
2100,4264.016 SPECIAL EVENTS (ATTENDANCE) A4CGAMS4S;16 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of patients attending all special event programs.
2100,4264.017 DANCE (ATTENDANCE) A4CGAMS4S;17 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of patients attending all dance programs.
2100,4264.018 CREATIVE COMM (ATTENDANCE) A4CGAMS4S;18 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of patients attending all creative communication programs.
2100,4264.019 SOCIAL RECREATION (ATTENDANCE) A4CGAMS4S;19 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of patients attending all social recreation programs.
2100,4264.02 OUTDOOR REC (ATTENDANCE) A4CGAMS4S;20 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of patients attending all outdoor recreation programs.
2100,4264.021 PHYSICAL FITNESS (ATTENDANCE) A4CGAMS4S;21 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of patients attending all physical fitness programs.
2100,4264.022 SPECTATOR EVENTS (ATTENDANCE) A4CGAMS4S;22 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of patients attending all spectator event programs.
2100,4264.023 LEISURE/EDUC/COUN (ATTENDANCE) A4CGAMS4S;23 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of patients attending all leisure/education/counseling programs.
2100,4264.024 SPECIAL THERAPY (ATTENDANCE) A4CGAMS4S;24 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of patients attending all specical therapy programs.
2100,4264.025 VA GIVEN (TRAINING HRS) A4CGAMS4S;25 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The total Recreation Service staff hours provided for VA training (i.e., leading, teaching,
planning, etc). Include training with affiliated and other students, volunteers, employees, etc.
2100,4264.026 VA TAKEN (TRAINING HRS) A4CGAMS4S;26 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total Recreation Service staff hours of attendance in training given by the VA.
2100,4264.027 OTHER GIVEN (TRAINING HRS) A4CGAMS4S;27 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The total Recreation Service staff hours provided for training other than VA, (i.e., leading,
teaching, planning, etc).
2100,4264.028 OTHER TAKEN (TRAINING HRS) A4CGAMS4S;28 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The total Recreation Service staff hours of attendance in training given by other than VA.
2100,4264.029 RESEARCH STAFF HOURS A4CGAMS4S;29 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The total staff hours used for research programs in Recreation Service, (i.e., writing proposals,
planning, testing formats, developing instrumentation, data compiling, analysis, etc). Staff hours
used in conducting, assisting and supervising recreational programs for which data is compiled
should not be counted in this total.
2100,4264.03 PATIENT TRMT MEETINGS A4CGAMS4S;30 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION: The total Recreation Service staff hours used in attending any patient staff meeting, (i.e., ward
or chart rounds, treatment planning meeting, etc).
2100,4264.031 RECREATION (ADMIN HRS) A4CGAMS4S;31 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The total staff hours used in attending administrative meetings conducted by and for Recreation
Service.
2100,4264.032 MEDICAL CTR (ADMIN HRS) A4CGAMS4S;32 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The total Recreation Service staff hours used in attending medical center administrative and
committee meetings (i.e., Director's Staff Conference, Administrative Executive Board, VAVS
Committee, Position Management Committee, etc).
2100,4264.033 PROFESSIONAL (OTHER MEETING) A4CGAMS4S;33 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The total Recreation Service staff hours of authorized absence granted for attending local or
national professional meetings.
2100,4264.034 COMMUNITY (OTHER MEETING) A4CGAMS4S;34 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The total Recreation Service staff hours of authorized absence granted for attending community
meetings, (i.e., American Red Cross, United Way, service organizations, etc).
2100,4264.035 BUDGET A4CGAMS4S;35 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION: The quarterly operating budget in whole dollars for Recreation Service from the medical center's
appropriated funds. General Post and donated funds should not be included.
2100,4264.036 WEEKEND/HOLIDAY HOURS A4CGAMS4S;36 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION: The total Recreation Service staff hours worked for all weekends and Federally approved holidays.
Weekend hours are counted from 4:30 p.m. Friday until 7:00 a.m. Monday.
2100,4264.037 THERAPIST HOURS A4CGAMS4S;37 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION: The number of hours actually worked by the therapist, assistant chief, chief, and supervisors. Do
not include annual, sick, or other types of leave.
2100,4264.038 ASSISTANTS HOURS A4CGAMS4S;38 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION: The number of assistants' hours actually worked. Do not include annual, sick, LWOP, or other types
of leave.
2100,4264.039 CLERICAL HOURS A4CGAMS4S;39 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The number of clerical hours actually worked. Do not include hours assigned to other services, or
annual, sick, LWOP, or other types of leave.
2100,4264.04 OTHER HOURS A4CGAMS4S;40 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION: The number of hours actually worked by employees other than those reported elsewhere. Include
drivers assigned to Recreation Service, projectionists, stay-in-school employees and other similar
types of employees. Do not include annual, sick or other types of leave.
2100,4264.041 RECREATION EQUIPMENT A4CGAMS4S;41 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION: The whole dollar value of nonexpendable implements/articles donated to Recreation Service for use
in the operation of recreation programs (i.e., pool tables, pianos, bulletin boards, projectors
etc).
2100,4264.042 RECREATION MATERIALS A4CGAMS4T;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION: The whole dollar value of expendable supplies/elements donated to Recreation Service for use in
conducting recreation programs (i.e., playing cards, plastic models, game prizes, decorations,
etc).
2100,4264.043 PROGRAM SERVICES A4CGAMS4T;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION: The whole dollar value of auxiliary services donated to Recreation Service for use in providing
recreation programs (i.e., transportation, fees, admissions, performers, etc).
2100,4264.044 PERSONAL COMFORT A4CGAMS4T;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION: The whole dollar value of expendable individual patient items donated to Recreation Service for use
as a part of recreation programs (i.e., refreshments, holiday gifts, party favors, grooming
accessories, etc).
2100,4264.045 PLANNED OFF FACILITY COMM A4CGAMS4T;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The total number of "off-facility" activities that were planned by Recreation Service.
2100,4265.001 HOBBIES A4CGAMS4U;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of prescribed 30 minute treatment units for hobbies.
2100,4265.002 MUSIC A4CGAMS4U;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of prescribed 30 minute treatment units for music.
2100,4265.003 GAMES/SPORTS/ATHLETICS A4CGAMS4U;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of prescribed 30 minute treatment units for games/sports/ athletics.
2100,4265.004 SPECIAL EVENTS A4CGAMS4U;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of prescribed 30 minute treatment units for special events.
2100,4265.005 DANCE A4CGAMS4U;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of prescribed 30 minute treatment units for dance.
2100,4265.006 CREATIVE COMMUNICATION A4CGAMS4U;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of prescribed 30 minute treatment units for creative communication.
2100,4265.007 SOCIAL RECREATION A4CGAMS4U;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of prescribed 30 minute treatment units for social recreation.
2100,4265.008 OUTDOOR RECREATION A4CGAMS4U;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of prescribed 30 minute treatment units for outdoor recreation.
2100,4265.009 PHYSICAL FITNESS A4CGAMS4U;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of prescribed 30 minute treatment units for physical fitness.
2100,4265.01 SPECTATOR EVENTS A4CGAMS4U;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of prescribed 30 minute treatment units for spectator events.
2100,4265.011 LEISURE/EDUC/COUNSELING A4CGAMS4U;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of prescribed 30 minute treatment units for leisure/ education/counseling.
2100,4265.012 SPECIAL THERAPY PROGRAMS A4CGAMS4U;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00000",$L(Y)+1,5)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
The number of prescribed 30 minute treatment units for special therapy.
2100,4265.013 PSYCHIATRY (UNITS) A4CGAMS4U;13 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The number of prescribed 30 minute treatment units by Psychiatry.
2100,4265.014 INTERMEDIATE MEDICINE (UNITS) A4CGAMS4U;14 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The number of prescribed 30 minute treatment units by Intermediate Medicine.
2100,4265.015 MEDICINE (UNITS) A4CGAMS4U;15 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The number of prescribed 30 minute treatment units by Medicine.
2100,4265.016 NEUROLOGY (UNITS) A4CGAMS4U;16 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The number of prescribed 30 minute treatment units by Neurology.
2100,4265.017 REHAB MEDICINE (UNITS) A4CGAMS4U;17 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The number of prescribed 30 minute treatment units by Rehabilitation Medicine.
2100,4265.018 BLIND REHABILITATION (UNITS) A4CGAMS4U;18 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The number of prescribed 30 minute treatment units by Blind Rehabilitation Medicine.
2100,4265.019 DRUG DEP TRMT INPATIENT A4CGAMS4U;19 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The number of prescribed 30 minute treatment units by Drug Dependence Treatment Unit (Inpatient).
2100,4265.02 ALCOHOL TRMT INPATIENT A4CGAMS4U;20 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The number of prescribed 30 minute treatment units by Alcohol Treatment Unit (Inpatient).
2100,4265.021 SCI INPATIENT A4CGAMS4U;21 NUMBER
SCI INPATIENT (DESIGNATED SCI CENTER)
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The number of prescribed 30 minute treatment units by Spinal Cord Injury (Inpatient)
2100,4265.022 SURGERY (INC NEUROSURGERY) A4CGAMS4U;22 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The number of prescribed 30 minute treatment units by Surgery including Neurosurgery.
2100,4265.023 VA NURSING HOME A4CGAMS4U;23 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The number of prescribed 30 minute treatment units by VA Nursing Home Care Unit.
2100,4265.024 DAY TEATMENT CENTER A4CGAMS4U;24 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The number of prescribed 30 minute treatment units by Day Treatment Center.
2100,4265.025 DAY HOSPITAL PROGRAM A4CGAMS4U;25 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The number of prescribed 30 minute treatment units by Day Hospital Program.
2100,4265.026 VA DOMICILIARY A4CGAMS4U;26 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The number of prescribed 30 minute treatment units by VA Domiciliary.
2100,4265.027 COMM NURSING HOME A4CGAMS4U;27 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The number of prescribed 30 minute treatment units by Community Nursing Home Care.
2100,4265.028 MENTAL HEALTH (OUTPATIENT) A4CGAMS4U;28 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The number of prescribed 30 minute treatment units by Mental Hygiene Clinic (Outpatient).
2100,4265.029 DRUG DEP (OUTPATIENT) A4CGAMS4U;29 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION: The number of prescribed 30 minute treatment units by Drug Dependence Treatment Center
(Outpatient).
2100,4265.03 ALCOHOL TRMT (OUTPATIENT) A4CGAMS4U;30 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The number of prescribed 30 minute treatment units by Alcohol Treatment Unit (Outpatient).
2100,4265.031 SCI (OUTPATIENT) A4CGAMS4U;31 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The number of prescribed 30 minute treatment units by Spinal Cord Injury (Outpatient).
2100,4265.032 MEDICAL/SURGICAL (OUTPATIENT) A4CGAMS4U;32 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000000",$L(Y)+1,6)_Y
LAST EDITED: APR 19, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The number of prescribed 30 minute treatment units by Medical/ Surgical (Outpatient).
2100,4266 QUARTER GECOPHY4;1 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>4)!(X<1)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: JUL 13, 1990
HELP-PROMPT: Type a Number between 1 and 4, 0 Decimal Digits
DESCRIPTION:
The reporting quarter (e.g., "1" = first quarter, "2" = second, etc.)
2100,4267 FISCAL YEAR GECOPHY4;2 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>2!($L(X)<2)!'(X?2N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,2)_Y
LAST EDITED: JUL 06, 1998
HELP-PROMPT: Answer must be 2 characters in length and numeric.
DESCRIPTION:
The last two digits of the reporting fiscal year (e.g., "90" = 1990).
2100,4268 FACILITY CODE SUFFIX GECOPHY4;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<2)!'(X?2AN) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,2)_Y
LAST EDITED: JUL 05, 1990
HELP-PROMPT: Answer must be 2 characters in length.
DESCRIPTION:
The two character suffix for multiple facility reporting units.
2100,4269 ID (PART-1) GECOPHY4;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>2)!(X<2)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: JUL 13, 1990
HELP-PROMPT: Type a Number between 2 and 2, 0 Decimal Digits
DESCRIPTION:
Indicates the data which follows is related to "contract physician service".
2100,4270 SPECIALTY ASSIGNMENT (PART-1) GECOPHY4;5 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
LAST EDITED: JUL 09, 1990
HELP-PROMPT: Answer must be 1-2 characters in length and numeric.
DESCRIPTION:
The specialty assignment code for each contract physician.
2100,4271 FTEE (PART-1) GECOPHY4;6 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>99.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E("00",$L($P(Y,".",1))+1,2)_$P(Y,".",1),$P(Y,".",2)=$E
("0",$L($P(Y,".",2))+1,1)_$P(Y,".",2),Y=$P(Y,".",1)_$P(Y,".",2)
LAST EDITED: JUL 12, 1990
HELP-PROMPT: Type a Number between 0 and 99.9, 1 Decimal Digit
DESCRIPTION: The number of full-time physicians (employee) equivalents (FTEE) rounded to the nearest tenth for
each specialty reported.
2100,4272 CONTRACT STARTING DATE GECOPHY4;7 DATE (Required)
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:(Y<1)!(+$E(X,4,5)=0) X Q:'$D(X) S X=$E(X,4,5)_$E(X,2,3)
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y S:+Y=0 Y=" "
LAST EDITED: JUL 06, 1998
DESCRIPTION:
The month and last two digits of the calendar year in which the current contract started.
2100,4273 CONTRACT TERMINATION DATE GECOPHY4;8 DATE (Required)
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:(Y<1)!(+$E(X,4,5)=0) X Q:'$D(X) S X=$E(X,4,5)_$E(X,2,3)
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y S:+Y=0 Y=" "
LAST EDITED: JUL 06, 1998
DESCRIPTION:
The month and last two digits of the calendar year in which the contract will expire.
2100,4274 TOTAL CONTRACT COST GECOPHY4;9 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000000",$L(Y)+1,7)_Y
LAST EDITED: JUL 09, 1990
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION: The total contract cost rounded to the nearest whole dollar. This should be the cost of the
contract regardless of the number of years or FTEE involved.
2100,4275 GAIN OR LOSS INDICATOR GECOPHY4;10 SET (Required)
'3' FOR GAIN;
'4' FOR LOSS;
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: JUL 13, 1990
DESCRIPTION:
Identifies the data as a gain or loss to the reporting system.
2100,4276 SPECIALTY ASSIGNMENT (PART-2) GECOPHY4;11 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
LAST EDITED: JUL 09, 1990
HELP-PROMPT: Answer must be 1-2 characters in length and numeric.
DESCRIPTION:
The specialty assignment code for the gain or loss.
2100,4277 DUTY STATUS (PART-2) GECOPHY4;12 SET (Required)
'F' FOR FULL-TIME;
'P' FOR PART-TIME;
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: JUL 13, 1990
DESCRIPTION:
The duty status of each physician gain or loss.
2100,4278 PHYSICIAN GRADE (PART-2) GECOPHY4;13 SET (Required)
'1' FOR ASSOCIATE;
'2' FOR FULL;
'3' FOR INTERMEDIATE;
'4' FOR SENIOR;
'5' FOR CHIEF;
'6' FOR EXECUTIVE;
'7' FOR DIRECTOR;
'9' FOR STATUTORY;
'0' FOR UNGRADED;
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: JUL 13, 1990
DESCRIPTION:
The grade of the physician gain or loss.
2100,4279 PHYSICIAN STEP (PART-2) GECOPHY4;14 SET (Required)
'1' FOR 1;
'2' FOR 2;
'3' FOR 3;
'4' FOR 4;
'5' FOR 5;
'6' FOR 6;
'7' FOR 7;
'8' FOR 8;
'9' FOR 9;
'0' FOR 10;
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: JUL 13, 1990
DESCRIPTION:
The step of the physician gain or loss.
2100,4280 DIPLOMATE STATUS (PART-2) GECOPHY4;15 SET (Required)
'B' FOR BOARD CERTIFIED;
'N' FOR NOT BOARD CERTIFIED;
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: JUL 13, 1990
DESCRIPTION:
Whether or not the physician gain or loss is certified by an American Specialty Board.
2100,4281 DATE 0F BIRTH (PART-2) GECOPHY4;16 DATE (Required)
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:(Y<1)!(+$E(X,4,5)=0) X Q:'$D(X) S X=$E(X,4,5)_$E(X,2,3)
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y S:+Y=0 Y=" "
LAST EDITED: JUL 06, 1998
DESCRIPTION:
The date of birth (month and year only) of the physician gain or loss.
2100,4282 EDUCATION STATUS (PART-2) GECOPHY4;17 SET (Required)
'U' FOR U.S./CANADIAN MEDICAL SCHOOL;
'F' FOR FOREIGN MEDICAL SCHOOL;
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: JUL 13, 1990
DESCRIPTION:
Whether the physician gain or loss is a U.S./Canadian or foreign medical school graduate.
2100,4283 GAIN FROM CODE (PART-2) GECOPHY4;18 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y S:+Y=0 Y=" "
LAST EDITED: JUL 13, 1990
HELP-PROMPT: Answer must be 1-2 characters in length and numeric.
DESCRIPTION: The code which identifies the physician's most recent principal employment or activity before
joining the VA.
2100,4284 MONTHS SPENT RECRUITING-PT 2 GECOPHY4;19 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y S:+Y=0 Y=" "
LAST EDITED: JUL 14, 1990
HELP-PROMPT: Type a Number between 1 and 99, 0 Decimal Digits
DESCRIPTION: The total number of months that were actually spent actively recruiting for the position now
occupied by the gain. Round the time to the nearest whole month.
2100,4285 OFFERS MADE GECOPHY4;20 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y S:+Y=0 Y=" "
LAST EDITED: NOV 06, 1990
HELP-PROMPT: Type a Number between 1 and 99, 0 Decimal Digits
DESCRIPTION: The total number of formal offers made to physicians to fill this position including the offer that
was accepted.
2100,4286 LOSS TO CODE GECOPHY4;21 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y S:+Y=0 Y=" "
LAST EDITED: JUL 13, 1990
HELP-PROMPT: Answer must be 1-2 characters in length and numeric.
DESCRIPTION:
The code which identifies the destination of the physician after leaving VA employment.
2100,4286.5 LENGTH OF VA SERVICE GECOPHY4;22 FREE TEXT
INPUT TRANSFORM: K:$L(X)>4!($L(X)<4)!'((X?4N)&(+$E(X,3,4)<12)) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,4)_Y
LAST EDITED: JUL 13, 1990
HELP-PROMPT: Answer must be 4 characters in length and numeric. A length of VA service of 6 years, 9 months is
to be entered as '0609'.
DESCRIPTION: The length of VA service acquired by the physician loss is to be reported in full years and full
months only. Disregard days entirely. Only VA service is to be counted. Do not include other
government service.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2100,4287 DUTY STATUS (PART-3) GECOPHY4A;1 SET (Required)
'6' FOR FULL-TIME POSITION;
'7' FOR PART-TIME POSITION;
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: JUL 13, 1990
DESCRIPTION:
The duty status of the position that is reported as vacant, recruited for, or committed.
2100,4288 SPECIALTY ASSIGNMENT (PART-3) GECOPHY4A;2 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y
LAST EDITED: JUL 09, 1990
HELP-PROMPT: Answer must be 1-2 characters in length and numeric.
DESCRIPTION:
The specialty assignment code of the physician vacancy.
2100,4289 TYPE OF POSITION GECOPHY4A;3 SET
'C' FOR CENTRALIZED POSITION;
'N' FOR NON-CENTRALIZED POSITION;
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: JUL 12, 1990
DESCRIPTION:
Whether or not the vacant position is "centralized" (for recruitment purposes).
2100,4290 MONTHS VACANT GECOPHY4A;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y S:+Y=0 Y=" "
LAST EDITED: JUL 12, 1990
HELP-PROMPT: Type a Number between 1 and 99, 0 Decimal Digits
DESCRIPTION: The total number of months the position has been vacant. If a position has been vacant for any
portion of a month it should be reported as a whole month.
2100,4291 MONTHS SPENT RECRUITING-PT 3 GECOPHY4A;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y S:+Y=0 Y=" "
LAST EDITED: JUL 13, 1990
HELP-PROMPT: Type a Number between 1 and 99, 0 Decimal Digits
DESCRIPTION: The total number of months spent actively recruiting for the position. Round to the nearest whole
month.
2100,4292 OFFERS MADE BY VA GECOPHY4A;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y="" Y=" " Q:Y=" " S Y=$E("00",$L(Y)+1,2)_Y
LAST EDITED: NOV 06, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
DESCRIPTION: The total number of formal offers made during the entire active recruitment period. Do not include
offers made and then withdrawn by the facility and do not include offers made that were
subsequently accepted.
2100,4293 OFFERS REFUSED GECOPHY4A;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y="" Y=" " Q:Y=" " S Y=$E("00",$L(Y)+1,2)_Y
LAST EDITED: NOV 06, 1990
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
DESCRIPTION:
The number of offers that were refused.
2100,4294 PHYSICIAN GRADE (PART-3) GECOPHY4A;8 SET
'1' FOR ASSOCIATE;
'2' FOR FULL;
'3' FOR INTERMEDIATE;
'4' FOR SENIOR;
'5' FOR CHIEF;
'6' FOR EXECUTIVE;
'7' FOR DIRECTOR;
'9' FOR STATUTORY;
'0' FOR UNGRADED;
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: JUL 13, 1990
DESCRIPTION:
The grade approved for the candidate committed to the position.
2100,4295 PHYSICIAN STEP (PART-3) GECOPHY4A;9 SET
'1' FOR 1;
'2' FOR 2;
'3' FOR 3;
'4' FOR 4;
'5' FOR 5;
'6' FOR 6;
'7' FOR 7;
'8' FOR 8;
'9' FOR 9;
'0' FOR 10;
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: JUL 13, 1990
DESCRIPTION:
The step approved for the candidate committed to the position.
2100,4296 DIPLOMATE STATUS (PART-3) GECOPHY4A;10 SET
'B' FOR BOARD CERTIFIED;
'N' FOR NOT BOARD CERTIFIED;
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: JUL 13, 1990
DESCRIPTION:
Whether or not the candidate committed is certified by an American Specialty Board.
2100,4297 DATE OF BIRTH (PART-3) GECOPHY4A;11 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:(Y<1)!(+$E(X,4,5)=0) X Q:'$D(X) S X=$E(X,4,5)_$E(X,2,3)
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("0000",$L(Y)+1,4)_Y S:+Y=0 Y=" "
LAST EDITED: JUL 06, 1998
DESCRIPTION:
The date of birth (month and year) of the candidate committed.
2100,4298 EDUCATION STATUS (PART-3) GECOPHY4A;12 SET
'U' FOR U.S./CANADIAN MEDICAL SCHOOL;
'F' FOR FOREIGN MEDICAL SCHOOL;
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: JUL 13, 1990
DESCRIPTION:
Whether the candidate committed is a U.S./Canadian or foreign medical school graduate.
2100,4299 GAIN FROM CODE (PART-3) GECOPHY4A;13 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y S:+Y=0 Y=" "
LAST EDITED: JUL 13, 1990
HELP-PROMPT: Answer must be 1-2 characters in length and numeric.
DESCRIPTION:
The code which identifies the physician's most recent principal employment before joining the VA.
2100,4300 MONTH REPORTING FOR DUTY GECOPHY4A;14 SET
'1' FOR JANUARY;
'2' FOR FEBRUARY;
'3' FOR MARCH;
'4' FOR APRIL;
'5' FOR MAY;
'6' FOR JUNE;
'7' FOR JULY;
'8' FOR AUGUST;
'9' FOR SEPTEMBER;
'10' FOR OCTOBER;
'11' FOR NOVEMBER;
'12' FOR DECEMBER;
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("00",$L(Y)+1,2)_Y S:+Y=0 Y=" "
LAST EDITED: JUL 13, 1990
DESCRIPTION:
The numerical equivalent of the month when the physician is scheduled to report for duty.
2100,4301 ID (PART-4) GECOPHY4A;15 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>8)!(X<8)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: JUL 13, 1990
HELP-PROMPT: Type a Number between 8 and 8, 0 Decimal Digits
DESCRIPTION:
Indicates the data which follows will be related to FTEE ceiling.
2100,4302 FTEE (PART-4) GECOPHY4A;16 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>999.99)!(X<0)!(X?.E1"."3N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",2)=$P(Y,".",2)_$E("00",$L($P(Y,".",2))+1,2),$P(Y,".",1)=$E
("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2)
LAST EDITED: JUL 09, 1990
HELP-PROMPT: Type a Number between 0 and 999.99, 2 Decimal Digits
DESCRIPTION: The total ceiling for full-time equivalent physician employees that was available at the beginning
of the reporting quarter.
2100,4303 POSITIVE ADJUSTMENTS GECOPHY4A;17 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999.99)!(X<0)!(X?.E1"."3N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",2)=$P(Y,".",2)_$E("00",$L($P(Y,".",2))+1,2),$P(Y,".",1)=$E
("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2) S:+Y=0 Y=" "
LAST EDITED: JUL 11, 1990
HELP-PROMPT: Type a Number between 0 and 999.99, 2 Decimal Digits
DESCRIPTION: Any net increase in the FTEE for physicians since the beginning of the quarter. Only the amount of
the increase is to be entered.
2100,4304 NEGATIVE ADJUSTMENTS GECOPHY4A;18 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999.99)!(X<0)!(X?.E1"."3N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",2)=$P(Y,".",2)_$E("00",$L($P(Y,".",2))+1,2),$P(Y,".",1)=$E
("000",$L($P(Y,".",1))+1,3)_$P(Y,".",1),Y=$P(Y,".",1)_$P(Y,".",2) S:+Y=0 Y=" "
LAST EDITED: JUL 11, 1990
HELP-PROMPT: Type a Number between 0 and 999.99, 2 Decimal Digits
DESCRIPTION: Any net decrease in the FTEE for physicians since the beginning of the quarter. Only the amount of
the decrease is to be entered.
2100,4304.9 FWS PARAMETERS (COLUMNS 1-9) GECOWGE4C;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>9!($L(X)<1) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=Y_$E(" ",$L(Y)+1,9)
LAST EDITED: SEP 24, 1990
HELP-PROMPT: Answer must be 1-9 characters in length.
2100,4304.91 FWS PARAMETERS (COLUMNS 10-19) GECOWGE4C;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=Y_$E(" ",$L(Y)+1,10)
LAST EDITED: SEP 24, 1990
HELP-PROMPT: Answer must be 1-10 characters in length.
2100,4304.92 FWS PARAMETERS (COLUMNS 20-29) GECOWGE4C;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=Y_$E(" ",$L(Y)+1,10)
LAST EDITED: SEP 24, 1990
HELP-PROMPT: Answer must be 1-10 characters in length.
2100,4304.93 FWS PARAMETERS (COLUMNS 30-39) GECOWGE4C;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=Y_$E(" ",$L(Y)+1,10)
LAST EDITED: SEP 24, 1990
HELP-PROMPT: Answer must be 1-10 characters in length.
2100,4304.94 FWS PARAMETERS (COLUMNS 40-49) GECOWGE4C;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=Y_$E(" ",$L(Y)+1,10)
LAST EDITED: SEP 24, 1990
HELP-PROMPT: Answer must be 1-10 characters in length.
2100,4304.95 FWS PARAMETERS (COLUMNS 50-59) GECOWGE4C;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=Y_$E(" ",$L(Y)+1,10)
LAST EDITED: SEP 24, 1990
HELP-PROMPT: Answer must be 1-10 characters in length.
2100,4304.96 FWS PARAMETERS (COLUMNS 60-69) GECOWGE4C;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=Y_$E(" ",$L(Y)+1,10)
LAST EDITED: SEP 24, 1990
HELP-PROMPT: Answer must be 1-10 characters in length.
2100,4304.97 FWS PARAMETERS (COLUMNS 70-78) GECOWGE4C;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>9!($L(X)<1) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=Y_$E(" ",$L(Y)+1,9)
LAST EDITED: SEP 24, 1990
HELP-PROMPT: Answer must be 1-9 characters in length.
2100,4304.98 FWS PARAMETERS (COLUMN 79) GECOWGE4C;9 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: SEP 24, 1990
HELP-PROMPT: Answer must be 1 character in length.
2100,4304.99 FWS PARAMETERS (COLUMN 80) GECOWGE4C;10 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: SEP 24, 1990
HELP-PROMPT: Answer must be 1 character in length.
2100,4305 AREA CODE GECOWGE4;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: SEP 24, 1990
HELP-PROMPT: Answer must be 1-3 characters in length and numeric.
DESCRIPTION:
The wage survey area code as assigned by the Bureau of Labor Statistics.
2100,4306 ESTABLISHMENT CODE GECOWGE4;2 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: SEP 24, 1990
HELP-PROMPT: Answer must be 1-3 characters in length and numeric.
DESCRIPTION:
The numeric code for the business establishment as supplied by the Bureau of Labor Statistics.
2100,4307 STATUS GECOWGE4;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'("P"[X) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: JUL 12, 1990
HELP-PROMPT: Enter the letter 'P'.
DESCRIPTION: The status of the business establishment as a candidiate in the survey. It will always be the
letter "P" (i.e., Prime).
2100,4308 SIC CODE GECOWGE4;4 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>4!($L(X)<4)!'(X?4N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,4)_Y
LAST EDITED: JUL 13, 1990
HELP-PROMPT: Answer must be 4 digits in length.
DESCRIPTION: The Standard Industrial Classification Code assigned to the business establishment by the Bureau of
Labor Statistics.
2100,4309 WEIGHT GECOWGE4;5 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,2)_Y
LAST EDITED: SEP 24, 1990
HELP-PROMPT: Answer must be 1-2 characters in length numeric.
DESCRIPTION:
The survey weight of the business establishment as assigned by the Bureau of Labor Statistics.
2100,4310 TOTAL NUMBER OF EMPLOYEES GECOWGE4;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,6)_Y
LAST EDITED: JUL 12, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The total number of employees of the business establishment.
2100,4311 PREVIOUS PARTICIPATION GECOWGE4;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'("*"[X) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=" "_$E(" ",$L(Y)+1,1)_Y
LAST EDITED: JUL 12, 1990
HELP-PROMPT: Enter '*' (asterisk) if the establishment participated in the most recent survey.
DESCRIPTION: If the business establishment participated in the most recent survey, then enter an '*' (asterisk)
in this field.
2100,4312 ESTABLISHMENT NAME GECOWGE4;8 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>32!($L(X)<1) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=Y_$E(" ",$L(Y)+1,32)
LAST EDITED: JUL 11, 1990
HELP-PROMPT: Answer must be 1-32 characters in length.
DESCRIPTION:
The name of the business establishment.
2100,4313 NON-PARTICIPATION CODE GECOWGE4;9 SET
'-50' FOR LESS THAN 50 EMPLOYEES;
'WSC' FOR WRONG SIC CODE;
'CMB' FOR COMBINED WITH OTHER ENTRY;
'COS' FOR ON STRIKE;
'DNU' FOR DATA NOT USABLE;
'DUP' FOR DUPLICATE;
'OOA' FOR OUT OF SURVEY AREA;
'OOB' FOR OUT OF BUSINESS;
'REF' FOR REFUSAL;
'UNL' FOR UNABLE TO LOCATE;
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,3)_Y_" "
LAST EDITED: OCT 10, 1990
DESCRIPTION:
The reason why the business establishment did not participate in the survey.
2100,4313.5 FORM ID GECOWGE4;10 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: SEP 24, 1990
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION:
The character which identifies the code sheet (e.g., '1' for the Establishment Information Form).
2100,4314 TYPE OF SURVEY GECOWGE4A;1 SET (Required)
'0' FOR FULL SCALE;
'1' FOR FIRST WAGE CHANGE;
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: JUL 12, 1990
DESCRIPTION:
Whether the data input is from a Full Scale or Wage Change Survey.
2100,4315 OVERTIME DAILY RATE GECOWGE4A;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>2)!(X<1.3)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,1)_$P(Y,".",1),$P(Y,".",2)=$P(
Y,".",2)_$E("0",$L($P(Y,".",2))+1,1),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 0" Y=" "
LAST EDITED: OCT 10, 1990
HELP-PROMPT: Type a Number between 1.3 and 2, 1 Decimal Digit
DESCRIPTION: The percentage rate the business establishment pays its employees for overtime hours worked beyond
the regular daily work shift.
2100,4316 OVERTIME DAILY HOURS GECOWGE4A;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>12)!(X<7)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,2)_$P(Y,".",1),$P(Y,".",2)=$P
(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 0" Y=" "
LAST EDITED: OCT 10, 1990
HELP-PROMPT: Type a Number between 7 and 12, 1 Decimal Digit
DESCRIPTION: The number of hours in one day an employee of the business establishment must work before earning
overtime pay.
2100,4317 OVERTIME WEEKLY RATE GECOWGE4A;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>2)!(X<1.3)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,1)_$P(Y,".",1),$P(Y,".",2)=$P(
Y,".",2)_$E("0",$L($P(Y,".",2))+1,1),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 0" Y=" "
LAST EDITED: OCT 10, 1990
HELP-PROMPT: Type a Number between 1.3 and 2, 1 Decimal Digit
DESCRIPTION: The percentage rate the business establishment pays its employees for overtime hours worked beyond
the regular workweek.
2100,4318 OVERTIME WEEKLY HOURS GECOWGE4A;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>48)!(X<35)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,2)_$P(Y,".",1),$P(Y,".",2)=$P
(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 0" Y=" "
LAST EDITED: OCT 10, 1990
HELP-PROMPT: Type a Number between 35 and 48, 1 Decimal Digit
DESCRIPTION: The number of hours an employee of the business establishment must work in one week before earning
overtime pay.
2100,4319 SUNDAY RATE GECOWGE4A;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>3)!(X<1.5)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,1)_$P(Y,".",1),$P(Y,".",2)=$P(
Y,".",2)_$E("0",$L($P(Y,".",2))+1,1),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 0" Y=" "
LAST EDITED: OCT 10, 1990
HELP-PROMPT: Type a Number between 1.5 and 3, 1 Decimal Digit
DESCRIPTION:
The percentage rate the business establishment pays its employees for working on Sunday.
2100,4320 HOLIDAY RATE GECOWGE4A;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>3.5)!(X<1.5)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,1)_$P(Y,".",1),$P(Y,".",2)=$P(
Y,".",2)_$E("0",$L($P(Y,".",2))+1,1),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 0" Y=" "
LAST EDITED: OCT 10, 1990
HELP-PROMPT: Type a Number between 1.5 and 3.5, 1 Decimal Digit
DESCRIPTION:
The percentage rate the business establishment pays its employees for working on holidays.
2100,4321 NORMAL WORKWEEK GECOWGE4A;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>60)!(X<35)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,2)_$P(Y,".",1),$P(Y,".",2)=$P
(Y,".",2)_$E("0",$L($P(Y,".",2))+1,1),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 0" Y=" "
LAST EDITED: OCT 10, 1990
HELP-PROMPT: Type a Number between 35 and 60, 1 Decimal Digit
DESCRIPTION:
The number of hours in a normal workweek as defined by the business establishment.
2100,4322 NR TRD-CRFT-LBR(PLANT) WORKERS GECOWGE4A;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,6)_Y
LAST EDITED: JUL 12, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION: The total number of trade, craft and labor workers on all shifts employed at the business
establishment.
2100,4323 MONTH OF RAISES GECOWGE4A;10 SET
'0' FOR NO SET MONTH;
'1' FOR JANUARY;
'2' FOR FEBRUARY;
'3' FOR MARCH;
'4' FOR APRIL;
'5' FOR MAY;
'6' FOR JUNE;
'7' FOR JULY;
'8' FOR AUGUST;
'9' FOR SEPTEMBER;
'10' FOR OCTOBER;
'11' FOR NOVEMBER;
'12' FOR DECEMBER;
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,2)_Y
LAST EDITED: JUL 12, 1990
DESCRIPTION:
The month raises normally take effect at the business establishment.
2100,4324 COLLECTIVE BARGAINING CONTRACT GECOWGE4A;11 SET
'Y' FOR YES, OBTAINED;
'N' FOR NOT OBTAINED;
'0' FOR NO CONTRACT;
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y_" "
LAST EDITED: JUL 12, 1990
DESCRIPTION: Whether or not the business establishment has a collective bargaining agreement and if a copy of
the contract(s) was obtained by the wage data collection team.
2100,4325 FIRST INCREASE GRANTED GECOWGE4A;12 FREE TEXT
INPUT TRANSFORM: K:$L(X)>6!($L(X)<1)!'(X?.2N1"."2N.1"P") X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,2)_$P(Y,".",1),$P(Y,".",2)=$P
(Y,".",2)_$E("000",$L($P(Y,".",2))+1,3),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 000" Y=" "
LAST EDITED: OCT 10, 1990
HELP-PROMPT: Examples: enter 25 cents as .25, one dollar as 1.00, 2 1/2 percent as 2.50P, 5 percent as 5.00P
DESCRIPTION:
The amount of the first wage increase granted.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2100,4326 REASON FOR INCREASE GRANTED-1 GECOWGE4A;13 SET
'C' FOR COLA;
'G' FOR GENERAL;
'N' FOR NONE;
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: JUL 12, 1990
DESCRIPTION:
The reason for the first increase granted.
2100,4327 SECOND INCREASE GRANTED GECOWGE4A;14 FREE TEXT
INPUT TRANSFORM: K:$L(X)>6!($L(X)<1)!'(X?.2N1"."2N.1"P") X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,2)_$P(Y,".",1),$P(Y,".",2)=$P
(Y,".",2)_$E("000",$L($P(Y,".",2))+1,3),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 000" Y=" "
LAST EDITED: OCT 10, 1990
HELP-PROMPT: Examples: enter 25 cents as .25, one dollar as 1.00, 2 1/2 percent as 2.50P, 5 percent as 5.00P
DESCRIPTION:
The amount of the second increase granted.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2100,4327.5 REASON FOR INCREASE GRANTED-2 GECOWGE4A;16 SET
'C' FOR COLA;
'G' FOR GENERAL;
'N' FOR NONE;
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: JUL 12, 1990
DESCRIPTION:
The reason for the second increase granted.
2100,4328 TOTAL INCREASES GRANTED GECOWGE4A;15 SET
'1' FOR ONE;
'2' FOR TWO;
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: JUL 13, 1990
DESCRIPTION:
The total number of increases granted.
2100,4329 JOB NUMBER GECOWGE4B;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E("000",$L(Y)+1,3)_Y
LAST EDITED: SEP 24, 1990
HELP-PROMPT: Answer must be 1-3 characters in length and numeric.
DESCRIPTION:
The job number assigned by the Bureau of Labor Statistics to the occupation being surveyed.
2100,4330 JOB MATCH-1 GECOWGE4B;2 SET (Required)
'Y' FOR YES;
'N' FOR NO;
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: JUL 12, 1990
DESCRIPTION:
The first job match entry for this code sheet.
2100,4331 NUMBER OF EMPLOYEES-1 GECOWGE4B;3 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,4)_Y
LAST EDITED: JUL 12, 1990
HELP-PROMPT: Type a Number between 1 and 9999, 0 Decimal Digits
DESCRIPTION:
The number of employees at this particular straight time hourly rate.
2100,4332 STRAIGHT TIME HOURLY RATE-1 GECOWGE4B;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>37.99)!(X<3.8)!(X?.E1"."4N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,2)_$P(Y,".",1),$P(Y,".",2)=$P
(Y,".",2)_$E("000",$L($P(Y,".",2))+1,3),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 000" Y=" "
LAST EDITED: OCT 10, 1990
HELP-PROMPT: Type a Number between 3.8 and 37.99, 3 Decimal Digits
DESCRIPTION:
The straight time hourly rate paid for this job match.
2100,4333 COLA GECOWGE4B;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>.999)!(X<.001)!(X?.E1"."4N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y="."_Y S Y=$P(Y,".",2)_$E("000",$L($P(Y,".",2))+1,3) S:Y="000" Y=" "
LAST EDITED: OCT 10, 1990
HELP-PROMPT: Type a Number between .001 and .999, 3 Decimal Digits
DESCRIPTION: The amount of any cost-of-living-allowance expressed in cents per hour (e.g., 39 1/2 cents would be
entered as .395 and 5 cents would be expressed as .05).
2100,4334 BONUS PER HOUR GECOWGE4B;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>.999)!(X<.001)!(X?.E1"."4N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y="."_Y S Y=$P(Y,".",2)_$E("000",$L($P(Y,".",2))+1,3) S:Y="000" Y=" "
LAST EDITED: OCT 10, 1990
HELP-PROMPT: Type a Number between .001 and .999, 3 Decimal Digits
DESCRIPTION: The amount of any bonus paid expressed in cents per hour (e.g., 39 1/2 cents would be entered as
.395 and 5 cents would be entered as .05).
2100,4335 NUMBER OF STEPS GECOWGE4B;7 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,2)_Y
LAST EDITED: JUL 12, 1990
HELP-PROMPT: Type a Number between 1 and 99, 0 Decimal Digits
DESCRIPTION: The number of discreet pay steps within the pay range for this occupation at the business
establishment.
2100,4336 MINIMUM JOB RATE GECOWGE4B;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>37.99)!(X<3.8)!(X?.E1"."4N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,2)_$P(Y,".",1),$P(Y,".",2)=$P
(Y,".",2)_$E("000",$L($P(Y,".",2))+1,3),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 000" Y=" "
LAST EDITED: OCT 10, 1990
HELP-PROMPT: Type a Number between 3.8 and 37.99, 3 Decimal Digits
DESCRIPTION:
The minimum rate per hour the business establishment is paying for this occupation.
2100,4337 MAXIMUM JOB RATE GECOWGE4B;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>37.99)!(X<3.8)!(X?.E1"."4N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,2)_$P(Y,".",1),$P(Y,".",2)=$P
(Y,".",2)_$E("000",$L($P(Y,".",2))+1,3),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 000" Y=" "
LAST EDITED: OCT 10, 1990
HELP-PROMPT: Type a Number between 3.8 and 37.99, 3 Decimal Digits
DESCRIPTION:
The maximum rate per hour the business establishment is paying for this occupation.
2100,4338 REASON FOR RATE CHANGE GECOWGE4B;10 SET
'C' FOR COMBINATION;
'L' FOR LONGEVITY;
'M' FOR MERIT;
'N' FOR NONE;
'X' FOR OTHER;
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: JUL 12, 1990
DESCRIPTION:
The reason for the differences between pay rates.
2100,4339 INCENTIVE RATE GECOWGE4B;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>37.99)!(X<3.8)!(X?.E1"."4N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,2)_$P(Y,".",1),$P(Y,".",2)=$P
(Y,".",2)_$E("000",$L($P(Y,".",2))+1,3),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 000" Y=" "
LAST EDITED: OCT 10, 1990
HELP-PROMPT: Type a Number between 3.8 and 37.99, 3 Decimal Digits
DESCRIPTION:
The amount of any incentive rate the employee(s) earned at this occupation.
2100,4340 GUARANTEED MINIMUM GECOWGE4B;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>37.99)!(X<3.8)!(X?.E1"."4N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,2)_$P(Y,".",1),$P(Y,".",2)=$P
(Y,".",2)_$E("000",$L($P(Y,".",2))+1,3),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 000" Y=" " S Y=Y_"
"
LAST EDITED: OCT 10, 1990
HELP-PROMPT: Type a Number between 3.8 and 37.99, 3 Decimal Digits
DESCRIPTION:
The guaranteed minimum rate for incentive-paid employees in this occupation.
2100,4341 MULTIPLE JOB MATCH GECOWGE4B;13 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: JUL 13, 1990
HELP-PROMPT: Type a Number between 0 and 9, 0 Decimal Digits
DESCRIPTION: A number from 0-9 used to differentiate multiple occupations at the business establishment which
match this particular survey job.
2100,4342 FIRST INCREASE PENDING GECOWGE4B;14 FREE TEXT
INPUT TRANSFORM: K:$L(X)>6!($L(X)<1)!'(X?.2N1"."2N.1"P") X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,2)_$P(Y,".",1),$P(Y,".",2)=$P
(Y,".",2)_$E("000",$L($P(Y,".",2))+1,3),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 000" Y=" "
LAST EDITED: OCT 10, 1990
HELP-PROMPT: Examples: enter 25 cents as .25, one dollar as 1.00, 2 1/2 percent as 2.50P, 5 percent as 5.00P
DESCRIPTION:
The amount of the first increase pending payment.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2100,4342.5 REASON FOR PENDING INCREASE-1 GECOWGE4A;17 SET
'C' FOR COLA;
'G' FOR GENERAL;
'N' FOR NONE;
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: JUL 12, 1990
DESCRIPTION:
The reason for the first increase pending.
2100,4343 SECOND INCREASE PENDING GECOWGE4B;15 FREE TEXT
INPUT TRANSFORM: K:$L(X)>6!($L(X)<1)!'(X?.2N1"."2N.1"P") X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,2)_$P(Y,".",1),$P(Y,".",2)=$P
(Y,".",2)_$E("000",$L($P(Y,".",2))+1,3),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 000" Y=" "
LAST EDITED: OCT 10, 1990
HELP-PROMPT: Examples: enter 25 cents as .25, one dollar as 1.00, 2 1/2 percent as 2.50P, 5 percent as 5.00P
DESCRIPTION:
The amount of the second increase pending payment.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2100,4344 REASON FOR PENDING INCREASE-2 GECOWGE4A;18 SET
'C' FOR COLA;
'G' FOR GENERAL;
'N' FOR NONE;
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: JUL 12, 1990
DESCRIPTION:
The reason for the second pending increase.
2100,4345 TOTAL INCREASES PENDING GECOWGE4A;19 SET
'1' FOR ONE;
'2' FOR TWO;
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y_" "
LAST EDITED: OCT 10, 1990
DESCRIPTION:
The total number of increases pending.
2100,4346 JOB MATCH-2 GECOWGE4B;16 SET
'Y' FOR YES;
'N' FOR NO;
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: JUL 12, 1990
DESCRIPTION:
The second job match for this code sheet.
2100,4346.1 NUMBER OF EMPLOYEES-2 GECOWGE4B;17 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,4)_Y
LAST EDITED: JUL 12, 1990
HELP-PROMPT: Type a Number between 1 and 9999, 0 Decimal Digits
DESCRIPTION:
The number of employees at this particular straight time hourly rate.
2100,4346.2 STRAIGHT TIME HOURLY RATE-2 GECOWGE4B;18 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>37.99)!(X<3.8)!(X?.E1"."4N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,2)_$P(Y,".",1),$P(Y,".",2)=$P
(Y,".",2)_$E("000",$L($P(Y,".",2))+1,3),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 000" Y=" "
LAST EDITED: OCT 10, 1990
HELP-PROMPT: Type a Number between 3.8 and 37.99, 3 Decimal Digits
DESCRIPTION:
The straight time hourly rate paid for this job match.
2100,4346.3 JOB MATCH-3 GECOWGE4B;19 SET
'Y' FOR YES;
'N' FOR NO;
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: JUL 12, 1990
DESCRIPTION:
The third job match entry for this code sheet.
2100,4346.4 NUMBER OF EMPLOYEES-3 GECOWGE4B;20 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,4)_Y
LAST EDITED: JUL 12, 1990
HELP-PROMPT: Type a Number between 1 and 9999, 0 Decimal Digits
DESCRIPTION:
The number of employees at this particular straight time hourly rate.
2100,4346.5 STRAIGHT TIME HOURLY RATE-3 GECOWGE4B;21 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>37.99)!(X<3.8)!(X?.E1"."4N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,2)_$P(Y,".",1),$P(Y,".",2)=$P
(Y,".",2)_$E("000",$L($P(Y,".",2))+1,3),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 000" Y=" "
LAST EDITED: OCT 10, 1990
HELP-PROMPT: Type a Number between 3.8 and 37.99, 3 Decimal Digits
DESCRIPTION:
The straight time hourly rate paid for this job match.
2100,4346.6 JOB MATCH-4 GECOWGE4B;22 SET
'Y' FOR YES;
'N' FOR NO;
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: JUL 12, 1990
DESCRIPTION:
The fourth job match entry for this code sheet.
2100,4346.7 NUMBER OF EMPLOYEES-4 GECOWGE4B;23 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,4)_Y
LAST EDITED: JUL 12, 1990
HELP-PROMPT: Type a Number between 1 and 9999, 0 Decimal Digits
DESCRIPTION:
The number of employees at this particular straight time hourly rate.
2100,4346.8 STRAIGHT TIME HOURLY RATE-4 GECOWGE4B;24 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>37.99)!(X<3.8)!(X?.E1"."4N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,2)_$P(Y,".",1),$P(Y,".",2)=$P
(Y,".",2)_$E("000",$L($P(Y,".",2))+1,3),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 000" Y=" "
LAST EDITED: OCT 10, 1990
HELP-PROMPT: Type a Number between 3.8 and 37.99, 3 Decimal Digits
DESCRIPTION:
The straight time hourly rate paid for this job match.
2100,4346.9 JOB MATCH-5 GECOWGE4B;25 SET
'Y' FOR YES;
'N' FOR NO;
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: JUL 12, 1990
DESCRIPTION:
The fifth job match entry for this code sheet.
2100,4347 NUMBER OF EMPLOYEES-5 GECOWGE4B;26 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,4)_Y
LAST EDITED: JUL 12, 1990
HELP-PROMPT: Type a Number between 1 and 9999, 0 Decimal Digits
DESCRIPTION:
The number of employees at this particular straight time hourly rate.
2100,4347.1 STRAIGHT TIME HOURLY RATE-5 GECOWGE4B;27 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>37.99)!(X<3.8)!(X?.E1"."4N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,2)_$P(Y,".",1),$P(Y,".",2)=$P
(Y,".",2)_$E("000",$L($P(Y,".",2))+1,3),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 000" Y=" "
LAST EDITED: OCT 10, 1990
HELP-PROMPT: Type a Number between 3.8 and 37.99, 3 Decimal Digits
DESCRIPTION:
The straight time hourly rate paid for this job match.
2100,4347.2 JOB MATCH-6 GECOWGE4B;28 SET
'Y' FOR YES;
'N' FOR NO;
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: JUL 12, 1990
DESCRIPTION:
The sixth job match entry for this code sheet.
2100,4347.3 NUMBER OF EMPLOYEES-6 GECOWGE4B;29 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,4)_Y
LAST EDITED: JUL 12, 1990
HELP-PROMPT: Type a Number between 1 and 9999, 0 Decimal Digits
DESCRIPTION:
The number of employees at this particular straight time hourly rate.
2100,4347.4 STRAIGHT TIME HOURLY RATE-6 GECOWGE4B;30 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>37.99)!(X<3.8)!(X?.E1"."4N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'["." Y=Y_"." S $P(Y,".",1)=$E(" ",$L($P(Y,".",1))+1,2)_$P(Y,".",1),$P(Y,".",2)=$P
(Y,".",2)_$E("000",$L($P(Y,".",2))+1,3),Y=$P(Y,".",1)_$P(Y,".",2) S:Y=" 000" Y=" " S Y=Y_"
"
LAST EDITED: OCT 10, 1990
HELP-PROMPT: Type a Number between 3.8 and 37.99, 3 Decimal Digits
DESCRIPTION:
The straight time hourly rate paid for this job match.
2100,4347.5 CONTINUATION COUNT GECOWGE4B;31 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X?1N!(X?1" ")) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,1)_Y
LAST EDITED: SEP 24, 1990
HELP-PROMPT: Enter '0' (zero) for the first Continuation Form used for this particular job, '1' for the second,
'2' for the third and so on.
DESCRIPTION:
This field contains the Continuation Form count.
2100,4348 FACILITY NUMBER GECONSY4;18 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>3!($L(X)<3)!'(X?3N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y="/"_Y
LAST EDITED: JUL 11, 1990
HELP-PROMPT: Answer must be 3 characters in length and numeric.
DESCRIPTION:
The facility's three digit identification number.
2100,4349 REPORT PERIOD GECONSY4;19 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>4)!(X<1)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y="/"_$E("00",$L(Y)+1,2)_Y
LAST EDITED: JUL 06, 1990
HELP-PROMPT: Type a Number between 1 and 4, 0 Decimal Digits
DESCRIPTION:
The reporting quarter (e.g., "1" = first quarter, "2" = second, etc).
2100,4350 PERIOD ENDING GECONSY4;1 DATE (Required)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X Q:'$D(X) S X=$E(X,4,7)_$E(X,2,3)
OUTPUT TRANSFORM: I $D(GECSOT) S Y="/"_Y
LAST EDITED: JUL 06, 1998
DESCRIPTION:
The date the reporting period ended.
2100,4351 SERVICE GECONSY4;2 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>4!($L(X)<4) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y="/"_Y
LAST EDITED: JUL 06, 1990
HELP-PROMPT: Answer must be 4 characters in length.
DESCRIPTION:
The abbreviation for the Service.
2100,4352 SECTION GECONSY4;3 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>5!($L(X)<5)!'(X?5N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y="/"_Y
LAST EDITED: JUL 13, 1990
HELP-PROMPT: Answer must be 5 characters in length and numeric.
DESCRIPTION:
The numeric code which identifies the Section number.
2100,4353 COST CENTER GECONSY4;4 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>4!($L(X)<4)!'(X?4N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y="/"_Y
LAST EDITED: JUL 06, 1990
HELP-PROMPT: Answer must be 4 characters in length and numeric.
DESCRIPTION:
The 4 digit code which identifies the Cost Center.
2100,4354 PAGE NUMBER GECONSY4;5 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y="/"_$E("00",$L(Y)+1,2)_Y_";"
LAST EDITED: JUL 06, 1990
HELP-PROMPT: Type a Number between 1 and 99, 0 Decimal Digits
DESCRIPTION:
The code sheet page number.
2100,4355 502 - EMPLOYEE SEPARATIONS GECONSY4;6 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y="/502/"_Y
LAST EDITED: JUL 06, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The number of separation actions (full-time, part-time, intermittent, permanent and temporary) that
represent losses to the facility. Do not include Leave Without Pay (LWOP) actions, fee basis
consultants, attendings, and others who are on fee-basis contracts or Without Compensation (WOCs).
2100,4356 509 - EMPLOYEE HEAD COUNT GECONSY4;7 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y="/509/"_Y_";"
LAST EDITED: JUL 06, 1990
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION: The total number of employees (full-time, part-time, intermittent, temporary and permanent) on the
rolls as of the end of the report period. Include all employees for whom the Personnel Service is
providing personnel services. Include employees of a District Office, a Canteen Service, a Research
Service, an Outpatient Clinic, a National Cemetery, or any other unit serviced. Do not include fee
basis consultants, attendings, and others that are on fee-basis contracts or Without Compensation
(WOC).
2100,4357 100 - TOTAL HOURS WORKED GECONSY4;8 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>999999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y="/100/"_Y
LAST EDITED: JUL 06, 1990
HELP-PROMPT: Type a Number between 0 and 999999.9, 1 Decimal Digit
DESCRIPTION: The number of hours actually worked performing Personnel Service activities i.e., hours spent on
the job. These hours should include the normal duty hours and overtime/compensatory hours worked by
employees, work-study students, Without Compensation (WOC) appointed personnel, etc.
2100,4358 200 - TOTAL PAID HOURS GECONSY4;9 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>999999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y="/200/"_Y_";"
LAST EDITED: JUL 06, 1990
HELP-PROMPT: Type a Number between 0 and 999999.9, 1 Decimal Digit
DESCRIPTION: The number of man-hours paid during the report period for all Personnel Service employees. Include
hours for authorized paid overtime, leave and holidays.
2100,4359 205 - PAID OVERTIME HOURS GECONSY4;10 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>99999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y="/205/"_Y
LAST EDITED: JUL 06, 1990
HELP-PROMPT: Type a Number between 0 and 99999.9, 1 Decimal Digit
DESCRIPTION: The paid hours worked by Personnel Service employees in excess of eight hours in a day or forty
hours in an administrative workweek.
2100,4360 215 - COP HOURS GECONSY4;11 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>99999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y="/215/"_Y_";"
LAST EDITED: JUL 06, 1990
HELP-PROMPT: Type a Number between 0 and 99999.9, 1 Decimal Digit
DESCRIPTION: The total number of Continuation Of Pay (COP) hours due to job-related injuries for all employees
whose paid hours are charged to Personnel Service.
2100,4361 300 - TOTAL UNPAID LWOP & AWOL GECONSY4;12 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>99999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y="/300/"_Y
LAST EDITED: JUL 06, 1990
HELP-PROMPT: Type a Number between 0 and 99999.9, 1 Decimal Digit
DESCRIPTION: The total number of hours officially recorded as Leave Without Pay (LWOP) or Absence Without Leave
(AWOL) for all employees assigned to Personnel Service.
2100,4362 400 - TOTAL FUNDED FTEE GECONSY4;13 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>9999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y="/400/"_Y_";"
LAST EDITED: JUL 06, 1990
HELP-PROMPT: Type a Number between 0 and 9999.9, 1 Decimal Digit
DESCRIPTION: The full-time employee equivalents of Personnel Service for the total number of positions that are
filled, plus any additional positions which funds are available for recruitment and placement as of
the end of the report period.
2100,4363 405 - MAN-HOURS BORROWED GECONSY4;14 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>9999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y="/405/"_Y
LAST EDITED: JUL 06, 1990
HELP-PROMPT: Type a Number between 0 and 9999.9, 1 Decimal Digit
DESCRIPTION:
The hours spent performing Personnel Service activities by employees assigned to another Service.
2100,4364 410 - MAN-HOURS LOANED GECONSY4;15 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>9999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y="/410/"_Y_";"
LAST EDITED: JUL 06, 1990
HELP-PROMPT: Type a Number between 0 and 9999.9, 1 Decimal Digit
DESCRIPTION:
The hours spent by employees of Personnel Service performing activities of another Service.
2100,4365 701 - VOLUNTEER HOURS WORKED GECONSY4;16 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>9999.9)!(X<0)!(X?.E1"."2N.N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y="/701/"_Y_";"
LAST EDITED: JUL 06, 1990
HELP-PROMPT: Type a Number between 0 and 9999.9, 1 Decimal Digit
DESCRIPTION:
The hours devoted to activities of Personnel Service by formal volunteers.
2100,4366 SYSTEM ID GECONSY4;17 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>3!($L(X)<3) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$E(" ",$L(Y)+1,3)_Y
LAST EDITED: JUL 13, 1990
HELP-PROMPT: Answer must be 3 characters in length.
DESCRIPTION:
The three character system identification code for this report.
2100,5000 CLINIC YSDDC5;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>2!($L(X)<2)!'(X?1A1N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S(Y'?1A1N:" ",1:Y)
LAST EDITED: APR 05, 1991
HELP-PROMPT: Answer must be 2 characters in length. First character alphabetic; Second character numeric.
DESCRIPTION: This is the two-character designation of the drug dependency clinic. The first character must be
alphabetic. The second character must be numeric.
2100,5001 PATIENT IDENTIFICATION NUMBER YSDDC5;2 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>10!($L(X)<9)!'(X?1"P"9N!(X?1" "9N)!(X?9N)) X
OUTPUT TRANSFORM: I $D(GECSOT),($L(Y)<10) S Y=" "_Y
LAST EDITED: APR 01, 1991
HELP-PROMPT: Answer must be 9-10 characters in length.
DESCRIPTION: This is the Patient Identification Number (SSN or Pseudo SSN) as it appears on the active patient
census. NOTE: IF THE PATIENT HAS NO SSN OR REFUSES TO DIVULGE IT, A PSEUDO SSN CAN BE GENERATED
AS FOLLOWS:
1. Enter a "P" as the first character to indicate a Pseudo SSN.
2. The next three characters will correspond to the patient's
initials in first name, middle initial, last name order using
the numeric code from the table below:
A,B,C = 1 J,K,L = 4 S,T,U = 7
D,E,F = 2 M,N,O = 5 V,W,X = 8
G,H,I = 3 P,Q,R = 6 Y,Z = 9
No MI = 0
The remaining six digits will correspond to the numeric date
of birth, in the format MMDDYY (e.g., April 1, 1949 would be
040149), WITHOUT delimiters (e.g., "/" or "-").
3. As a complete example, a Pseudo SSN for John A. Doe, born on
April 1, 1949 would be constructed as: P412040149.
2100,5002 PATIENT LAST NAME YSDDC5;3 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>18!($L(X)<1)!'(X?1.18AP) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=Y_$E(" ",$L(Y)+1,18)
LAST EDITED: APR 01, 1991
HELP-PROMPT: Answer must be 1-18 characters in length.
DESCRIPTION:
This is the patients last name, as it appears on the active patient census.
2100,5003 PATIENT FIRST NAME YSDDC5;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1)!'(X?1.10AP) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=Y_$E(" ",$L(Y)+1,10)
LAST EDITED: JUN 05, 1991
HELP-PROMPT: Answer must be 1-10 characters in length.
DESCRIPTION:
This is the patient's first name, as it appears on the active patient census.
2100,5004 PATIENT MI YSDDC5;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X?1A) X
OUTPUT TRANSFORM: I $D(GECSOT) S:$L(Y)<1 Y=" "
LAST EDITED: MAR 28, 1991
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION:
This is the patient's middle initial, if present, as it appears on the active patient census.
2100,5005 ETHNIC BACKGROUND CODE (EBC) YSDDC5;6 SET
'01' FOR White;
'02' FOR Black;
'03' FOR Native American;
'04' FOR Eskimo - Alaskan Native;
'05' FOR Asian/Pacific Islander;
'06' FOR Mexican;
'07' FOR Puerto Rican;
'08' FOR Cuban;
'09' FOR Hispanic (NES);
'99' FOR Unspecified;
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S(Y="":" ",Y'?1.2N:"99",$L(Y)=1:"0"_Y,1:Y)
LAST EDITED: JUN 04, 1991
DESCRIPTION: This is the two digit numeric code for the patient's ethnic background:
01 = White (not of Hispanic origin)
02 = Black (not of Hispanic origin)
03 = Native American (Indian)
04 = Alaskan Native (Aleutian, Eskimo Indian)
05 = Asian or Pacific Islander
06 = Hispanic - Mexican origin
07 = Hispanic - Puerto Rican origin
08 = Hispanic - Cuban origin
09 = Hispanic - other than above
99 = Unspecified
2100,5006 PATIENT SEX YSDDC5;7 SET
'M' FOR male;
'F' FOR female;
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S(Y="":" ",1:Y)
LAST EDITED: MAR 27, 1991
DESCRIPTION:
This is the patient's gender ("M" if male, "F" if female).
2100,5007 PATIENT DATE OF BIRTH YSDDC5;8 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
OUTPUT TRANSFORM: S %=Y D DD^%DT I $D(GECSOT) S Y=%,Y=$S(+Y'>0:" ",1:$E(Y,4,5)_$E(Y,6,7)_$E(Y,2,3))
LAST EDITED: JUL 07, 1998
2100,5008 COUNSELOR ID NUMBER YSDDC5;9 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S(Y'?1.2N:" ",$L(Y)=1:"0"_Y,1:Y)
LAST EDITED: APR 03, 1991
HELP-PROMPT: Enter counselor's ID #, or 00 if counselor not assigned. Answer must be 1-2 characters in length.
DESCRIPTION: This is the two-digit number assigned to the counselor to which the patient has been assigned at
your station.
2100,5009 ACTION CODE YSDDC5;10 SET (Required)
'A' FOR admission;
'C' FOR change patient information;
'D' FOR discharge;
LAST EDITED: MAR 29, 1991
DESCRIPTION:
This is the alphabetic code for the action which this transaction describes.
2100,5010 TYPE CODE YSDDC5;11 SET (Required)
'0' FOR Admission - drug abuse Tx;
'1' FOR Completed Tx or Type 1 change;
'2' FOR Transfer or Type 2 change;
'3' FOR Irregular or Type 3 change;
'4' FOR Non-compliance;
'5' FOR Jail (incarceration);
'6' FOR Death;
'9' FOR Admission - other;
LAST EDITED: JUN 04, 1991
DESCRIPTION: This is the one-digit numeric code which describes the action as follows:
If the ACTION is "A" for Admission the TYPE can be:
"0" = drug abuse treatment
"9" = for any other purpose
If the ACTION is "C" for Change Patient Information the TYPE can be:
"1" = type 1 change (Pt. Name, EBC, Sex, DOB or Counselor)
"2" = type 2 change (change of Modality Admitted to code)
"3" = type 3 change (modify error in previous transmission)
If the ACTION is "D" for Discharge the TYPE can be:
"1" = treatment complete
"2" = transfer
"3" = irregular
"4" = non-compliance
"5" = incarceration
"6" = death
2100,5011 ACTION EFFECTIVE DATE YSDDC5;12 DATE (Required)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
OUTPUT TRANSFORM: S %=Y D DD^%DT I $D(GECSOT) S Y=%,Y=$E(Y,4,5)_$E(Y,6,7)_$E(Y,2,3)
LAST EDITED: JUL 06, 1998
HELP-PROMPT: Enter the date on which patient was accepted for treatment.
DESCRIPTION: This is the date on which the action described by this transaction will be effective (usually
TODAY).
2100,5012 TREATMENT MODALITY YSDDC5;13 SET
'A' FOR detoxification treatment - methadone;
'B' FOR maintenance treatment - methadone;
'C' FOR Drug free treatment;
'Z' FOR None of the above;
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S(Y="":" ",1:Y)
LAST EDITED: MAR 28, 1991
DESCRIPTION: This is the treatment modality to which the patient is admitted. It is MANDATORY for all ADMISSION
type transactions, and can only be modified by a change type 2 transaction.
2100,5013 TRANSACTION CODE YSDDC5;14 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<2)!'(X?1.2N) X
LAST EDITED: MAR 28, 1991
HELP-PROMPT: Answer must be 2 characters in length.
DESCRIPTION: This is the code for the transaction being made (e.g., 01 for Patient Information Sheet - form
5356, 02 for Patient Dosage Schedule - form 5357, etc.). It is always appended to the end of the
record automatically, and is transparent to the user.
2100,5014 DDCSS DATA CODE YSDDC5;15 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'="@" Y="@"
LAST EDITED: MAR 28, 1991
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION: This is the end of record indicator "@". It is always appended to the record automatically, and is
transparent to the user.
2100,5015 END OF DATA INDICATOR YSDDC5;16 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1) X
OUTPUT TRANSFORM: I $D(GECSOT) S:Y'="$" Y="$"
LAST EDITED: MAR 28, 1991
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION: This is the end of data indicator "$". It is always appended to the end of a given transaction
automatically, and is transparent to the user.
2100,5017 EFFECTIVE DATE '01' SEQUENCE YSDDC5;18 DATE (Required)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
OUTPUT TRANSFORM: S %=Y D DD^%DT I $D(GECSOT) S Y=%,Y=$E(Y,4,5)_$E(Y,6,7)_$E(Y,2,3)
LAST EDITED: JUL 06, 1998
HELP-PROMPT: Enter the effective date of the first sequence of this series of medications.
DESCRIPTION:
This is the effective date of the first dosing sequence for the patient.
2100,5018 PICKUP CODE YSDDC5;19 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>2!($L(X)<2)!'(X?1N1U!(X?1N1P)) X
LAST EDITED: MAY 29, 1991
HELP-PROMPT: Enter pickup code, "??" for brief description or "???" for detailed help.
DESCRIPTION:
This is the two character code for the patient's medication pickup schedule.
EXECUTABLE HELP: I X="???" S XQH="GECQ PICKUP CODES" D EN^XQH K XQH
2100,5019 MEDICATION SEQUENCE YSDDC5;20 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S(Y'?1.2N:" ",$L(Y)=1:"0"_Y,1:Y)
LAST EDITED: APR 03, 1991
HELP-PROMPT: Enter as coded. (e.g., 1 or 01 for first dosing sequence, etc.).
DESCRIPTION: This is the number of the dosing sequence for the patient (e.g., enter "1" or "01" to indicate
first dosing, etc.).
2100,5020 DOSAGE YSDDC5;21 FREE TEXT
INPUT TRANSFORM: K:$L(X)>3!($L(X)<1)!'(X?1.3N)!(X<0)!((X>150)&(X'=888)) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S(Y'?1.3N:" ",$L(Y)=1:"00"_Y,$L(Y)=2:"0"_Y,1:Y)
LAST EDITED: APR 03, 1991
HELP-PROMPT: Enter dosage strength in milligrams from 1 to 150. Enter 0 if no medication today. Enter "888" for
placebos.
DESCRIPTION: This is the dosage strength in milligrams (from 1 to 150) of the medication which the patient is to
recieve. If no medication is to be given today, then enter "0" or "000". Placebo dosings are
entered as "888".
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2100,5021 DOSAGE DURATION YSDDC5;22 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S(Y'?1.2N:" ",$L(Y)=1:"0"_Y,1:Y)
LAST EDITED: APR 03, 1991
HELP-PROMPT: Enter number of days patient will recieve this dosage level: count today as day 1. Enter "99" if
patient is to maintained indefinitely at this level.
DESCRIPTION: This is the number of days the patient will be recieving the indicated dosage level. Count today
as day 1. If the patient is to be maintained indefinitely at this dosage, enter "99". IF THE
DURATION IS ENTERED AS "99" FOR THE FIRST DOSAGE SEQUENCE, THEN DO NOT MAKE ANY FURTHER CHANGES.
2100,5022 HCF TEXT CODE YSDDC5;23 SET (Required)
'1' FOR CLINIC NAME;
'2' FOR STREET ADDRESS;
'3' FOR CITY;
'4' FOR STATE;
'5' FOR ZIP CODE;
'6' FOR CLINIC TELEPHONE NUMBER;
'7' FOR PRESCRIBING PHYSICIAN NAMES;
'8' FOR HCF NAME;
LAST EDITED: APR 05, 1991
DESCRIPTION:
Enter the code for the data element which you wish to change with this transaction.
2100,5023 HCF SPACE YSDDC5;24 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X?1" ") X
LAST EDITED: MAR 27, 1991
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION: This is simply a blank space which transparently pads each transaction for the HCF Information Form
(5333).
2100,5024 HCF TEXT YSDDC5;25 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>25!($L(X)<1) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=Y_$E(" ",$L(Y)+1,25)
LAST EDITED: MAR 28, 1991
HELP-PROMPT: Answer must be 1-25 characters in length.
DESCRIPTION: Enter the appropriate textual changes for the data element indicated by the TEXT CODE entered
above.
2100,5025 MEDICATION FOR WEEK OF YSDDC5;26 DATE (Required)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
OUTPUT TRANSFORM: S %=Y D DD^%DT I $D(GECSOT) S Y=%,Y=$E(Y,4,5)_$E(Y,6,7)_$E(Y,2,3)
LAST EDITED: JUL 06, 1998
HELP-PROMPT: Upper left of form. Date of first day of week.
DESCRIPTION:
This is the date of the first day of the week described by the present transaction.
2100,5026 DOSAGE CODE-MONDAY YSDDC5;27 SET
'P' FOR picked up & ingested;
'T' FOR taken home;
'A' FOR authorized absence;
'D' FOR death;
'H' FOR hospitalized;
'J' FOR jail;
'U' FOR unauthorized absence;
'W' FOR withheld;
'X' FOR discharged;
OUTPUT TRANSFORM: I $D(GECSOT),(Y']"") S Y=" "
LAST EDITED: JUN 04, 1991
DESCRIPTION: This is the code describing the circumstances under which the medication was dispensed or not.
if the patient wasn't scheduled for medication on Monday.
2100,5027 DOSAGE-MONDAY YSDDC5;28 FREE TEXT
INPUT TRANSFORM: K:$L(X)>3!($L(X)<1)!'(X?1.3N!(X?1" ")) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S(Y'?1.3N:" ",$L(Y)=1:"00"_Y,$L(Y)=2:"0"_Y,1:Y)
LAST EDITED: APR 03, 1991
HELP-PROMPT: Enter the dosage dispensed, in milligrams. Otherwise enter blank.
DESCRIPTION:
This is the dosage dispensed to the patient in milligrams.
2100,5028 DOSAGE CODE-TUESDAY YSDDC5;29 SET
'P' FOR picked up & ingested;
'T' FOR taken home;
'A' FOR authorized absence;
'D' FOR death;
'H' FOR hospitalized;
'J' FOR jail;
'U' FOR unauthorized absence;
'W' FOR withheld;
'X' FOR discharged;
OUTPUT TRANSFORM: I $D(GECSOT),(Y']"") S Y=" "
LAST EDITED: JUN 04, 1991
DESCRIPTION: This is the code describing the circumstances under which the medication was dispensed or not.
if the patient wasn't scheduled for medication on Tuesday.
2100,5029 DOSAGE-TUESDAY YSDDC5;30 FREE TEXT
INPUT TRANSFORM: K:$L(X)>3!($L(X)<1)!'(X?1.3N!(X?1" ")) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S(Y'?1.3N:" ",$L(Y)=1:"00"_Y,$L(Y)=2:"0"_Y,1:Y)
LAST EDITED: APR 03, 1991
HELP-PROMPT: Enter the dosage dispensed, in milligrams. Otherwise enter blank.
DESCRIPTION:
This is the dosage dispensed to the patient in milligrams.
2100,5030 DOSAGE CODE-WEDNESDAY YSDDC5;31 SET
'P' FOR picked up & ingested;
'T' FOR taken home;
'A' FOR authorized absence;
'D' FOR death;
'H' FOR hospitalized;
'J' FOR jail;
'U' FOR unauthorized absence;
'W' FOR withheld;
'X' FOR discharged;
OUTPUT TRANSFORM: I $D(GECSOT),(Y']"") S Y=" "
LAST EDITED: JUN 04, 1991
DESCRIPTION: This is the code describing the circumstances under which the medication was dispensed or not.
if the patient wasn't scheduled for medication on Wednesday.
2100,5031 DOSAGE-WEDNESDAY YSDDC5;32 FREE TEXT
INPUT TRANSFORM: K:$L(X)>3!($L(X)<1)!'(X?1.3N!(X?1" ")) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S(Y'?1.3N:" ",$L(Y)=1:"00"_Y,$L(Y)=2:"0"_Y,1:Y)
LAST EDITED: APR 03, 1991
HELP-PROMPT: Enter the dosage dispensed, in milligrams. Otherwise enter blank.
DESCRIPTION:
This is the dosage dispensed to the patient in milligrams.
2100,5032 DOSAGE CODE-THURSDAY YSDDC5;33 SET
'P' FOR picked up & ingested;
'T' FOR taken home;
'A' FOR authorized absence;
'D' FOR death;
'H' FOR hospitalized;
'J' FOR jail;
'U' FOR unauthorized absence;
'W' FOR withheld;
'X' FOR discharged;
OUTPUT TRANSFORM: I $D(GECSOT),(Y']"") S Y=" "
LAST EDITED: JUN 04, 1991
DESCRIPTION: This is the code describing the circumstances under which the medication was dispensed or not.
if the patient wasn't scheduled for medication on Thursday.
2100,5033 DOSAGE-THURSDAY YSDDC5;34 FREE TEXT
INPUT TRANSFORM: K:$L(X)>3!($L(X)<1)!'(X?1.3N!(X?1" ")) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S(Y'?1.3N:" ",$L(Y)=1:"00"_Y,$L(Y)=2:"0"_Y,1:Y)
LAST EDITED: APR 03, 1991
HELP-PROMPT: Enter the dosage dispensed, in milligrams. Otherwise enter blank.
DESCRIPTION:
This is the dosage dispensed to the patient in milligrams.
2100,5034 DOSAGE CODE-FRIDAY YSDDC5;35 SET
'P' FOR picked up & ingested;
'T' FOR taken home;
'A' FOR authorized absence;
'D' FOR death;
'H' FOR hospital;
'J' FOR jail;
'U' FOR unauthorized absence;
'W' FOR withheld;
'X' FOR discharged;
OUTPUT TRANSFORM: I $D(GECSOT),(Y']"") S Y=" "
LAST EDITED: JUN 04, 1991
DESCRIPTION: This is the code describing the circumstances under which the medication was dispensed or not.
if the patient wasn't scheduled for medication on Friday.
2100,5035 DOSAGE-FRIDAY YSDDC5;36 FREE TEXT
INPUT TRANSFORM: K:$L(X)>3!($L(X)<1)!'(X?1.3N!(X?1" ")) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S(Y'?1.3N:" ",$L(Y)=1:"00"_Y,$L(Y)=2:"0"_Y,1:Y)
LAST EDITED: APR 03, 1991
HELP-PROMPT: Enter the dosage dispensed, in milligrams. Otherwise enter blank.
DESCRIPTION:
This is the dosage dispensed to the patient in milligrams.
2100,5036 DOSAGE CODE-SATURDAY YSDDC5;37 SET
'P' FOR picked up & ingested;
'T' FOR taken home;
'A' FOR authorized absence;
'D' FOR death;
'H' FOR hospitalized;
'J' FOR jail;
'U' FOR unauthorized absence;
'W' FOR withheld;
'X' FOR discharged;
OUTPUT TRANSFORM: I $D(GECSOT),(Y']"") S Y=" "
LAST EDITED: JUN 04, 1991
DESCRIPTION: This is the code describing the circumstances under which the medication was dispensed or not.
if the patient wasn't scheduled for medication on Saturday.
2100,5037 DOSAGE-SATURDAY YSDDC5;38 FREE TEXT
INPUT TRANSFORM: K:$L(X)>3!($L(X)<1)!'(X?1.3N!(X?1" ")) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S(Y'?1.3N:" ",$L(Y)=1:"00"_Y,$L(Y)=2:"0"_Y,1:Y)
LAST EDITED: APR 03, 1991
HELP-PROMPT: Enter the dosage dispensed, in milligrams. Otherwise enter blank.
DESCRIPTION:
This is the dosage dispensed to the patient in milligrams.
2100,5038 DOSAGE CODE-SUNDAY YSDDC5;39 SET
'P' FOR picked up & ingested;
'T' FOR taken home;
'A' FOR authorized absence;
'D' FOR death;
'H' FOR hospitalized;
'J' FOR jail;
'U' FOR unauthorized absence;
'W' FOR withheld;
'X' FOR discharged;
OUTPUT TRANSFORM: I $D(GECSOT),(Y']"") S Y=" "
LAST EDITED: JUN 04, 1991
DESCRIPTION: This is the code describing the circumstances under which the medication was dispensed or not.
if the patient wasn't scheduled for medication on Sunday.
2100,5039 DOSAGE-SUNDAY YSDDC5;40 FREE TEXT
INPUT TRANSFORM: K:$L(X)>3!($L(X)<1)!'(X?1.3N!(X?1" ")) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S(Y'?1.3N:" ",$L(Y)=1:"00"_Y,$L(Y)=2:"0"_Y,1:Y)
LAST EDITED: APR 03, 1991
HELP-PROMPT: Enter the dosage dispensed, in milligrams. Otherwise enter blank.
DESCRIPTION:
This is the dosage dispensed to the patient in milligrams.
2100,5040 SPECIMEN COLLECTION DATE YSDDC5;41 DATE (Required)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
OUTPUT TRANSFORM: S %=Y D DD^%DT I $D(GECSOT) S Y=%,Y=$E(Y,4,5)_$E(Y,6,7)_$E(Y,2,3)
LAST EDITED: JUL 06, 1998
HELP-PROMPT: Upper right of form. Enter date specimen collected.
DESCRIPTION:
This is the date on which the specimen for urinalysis was collected.
2100,5041 MORPHINE PRESCRIBED YSDDC5;42 SET
'X' FOR YES;
OUTPUT TRANSFORM: I $D(GECSOT),(Y']"") S Y=" "
LAST EDITED: MAR 28, 1991
HELP-PROMPT: Enter "X" or
DESCRIPTION:
This is a flag to indicate that morphine is prescribed for this patient.
2100,5042 DRUG NAME/CODE MORPHINE YSDDC5;43 SET
'01' FOR MORPHINE RESULT AVAILABLE;
OUTPUT TRANSFORM: I $D(GECSOT),(Y']"") S Y=" "
LAST EDITED: MAR 28, 1991
HELP-PROMPT: Enter only if entry is made for result in card column 43.
DESCRIPTION:
This is a code indicating that a result is available for morphine level in the urinalysis.
2100,5043 MORPHINE RESULT YSDDC5;44 SET
'P' FOR positive;
'N' FOR negative;
'Q' FOR questionable;
OUTPUT TRANSFORM: I $D(GECSOT),(Y']"") S Y=" "
LAST EDITED: MAR 28, 1991
DESCRIPTION: This is a code indicating whether the result of the urine morphine assay was positive, negative or
questionable.
2100,5044 BARBITURATE PRESCRIBED YSDDC5;45 SET
'X' FOR YES;
OUTPUT TRANSFORM: I $D(GECSOT),(Y']"") S Y=" "
LAST EDITED: MAR 28, 1991
HELP-PROMPT: Enter "X" or
DESCRIPTION:
This is a flag indicating that barbiturate is prescribed for this patient.
2100,5045 DRUG NAME/CODE BARBITURATE YSDDC5;46 SET
'02' FOR BARBITURATE RESULT AVAILABLE;
OUTPUT TRANSFORM: I $D(GECSOT),(Y']"") S Y=" "
LAST EDITED: MAR 28, 1991
HELP-PROMPT: Enter only if entry is made for result in card column 47.
DESCRIPTION:
This is a code indicating that a result is available for barbiturate level in the urinalysis.
2100,5046 BARBITURATE RESULT YSDDC5;47 SET
'P' FOR positive;
'N' FOR negative;
'Q' FOR questionable;
OUTPUT TRANSFORM: I $D(GECSOT),(Y']"") S Y=" "
LAST EDITED: MAR 28, 1991
DESCRIPTION: This is a code indicating whether the result of the urine barbiturate assay was positive, negative
or questionable.
2100,5047 AMPHETAMINE PRESCRIBED YSDDC5;48 SET
'X' FOR YES;
OUTPUT TRANSFORM: I $D(GECSOT),(Y']"") S Y=" "
LAST EDITED: MAR 28, 1991
HELP-PROMPT: Enter "X" or
DESCRIPTION:
This is a flag to indicate that amphetamine is prescribed for this patient.
2100,5048 DRUG NAME/CODE AMPHETAMINE YSDDC5;49 SET
'03' FOR AMPHETAMINE RESULT AVAILABLE;
OUTPUT TRANSFORM: I $D(GECSOT),(Y']"") S Y=" "
LAST EDITED: MAR 28, 1991
HELP-PROMPT: Enter only if entry is made for result in card column 51.
DESCRIPTION:
This is a code indicating that a result is available for amphetamine level in the urinalysis.
2100,5049 AMPHETAMINE RESULT YSDDC5;50 SET
'P' FOR positive;
'N' FOR negative;
'Q' FOR questionable;
OUTPUT TRANSFORM: I $D(GECSOT),(Y']"") S Y=" "
LAST EDITED: MAR 28, 1991
DESCRIPTION: This is a code indicating whether the result of the urine amphetamine assay was positive, negative
or questionable.
2100,5050 METHADONE PRESCRIBED YSDDC5;51 SET
'X' FOR YES;
OUTPUT TRANSFORM: I $D(GECSOT),(Y']"") S Y=" "
LAST EDITED: MAR 28, 1991
HELP-PROMPT: Enter "X" or
DESCRIPTION:
This is a flag to indicate that methadone is prescribed for this patient.
2100,5051 DRUG NAME/CODE METHADONE YSDDC5;52 SET
'04' FOR METHADONE RESULT AVAILABLE;
OUTPUT TRANSFORM: I $D(GECSOT),(Y']"") S Y=" "
LAST EDITED: MAR 28, 1991
HELP-PROMPT: Enter only if entry is made for result in card column 55.
DESCRIPTION:
This is a code indicating that a result is available for methadone level in the urinalysis.
2100,5052 METHADONE RESULT YSDDC5;53 SET
'P' FOR positive;
'N' FOR negative;
'Q' FOR questionable;
OUTPUT TRANSFORM: I $D(GECSOT),(Y']"") S Y=" "
LAST EDITED: MAR 28, 1991
DESCRIPTION: This is a code indicating whether the result of the urine methadone assay was positive, negative or
questionable.
2100,5053 OTHER DRUG 1 PRESCRIBED YSDDC5;54 SET
'X' FOR YES;
OUTPUT TRANSFORM: I $D(GECSOT),(Y']"") S Y=" "
LAST EDITED: MAR 28, 1991
HELP-PROMPT: Enter "X" or
DESCRIPTION:
This is a flag to indicate that another drug is prescribed for this patient.
2100,5054 DRUG NAME/CODE OTHER 1 YSDDC5;55 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S(Y'?1.2N:" ",$L(Y)=1:"0"_Y,1:Y)
LAST EDITED: APR 04, 1991
HELP-PROMPT: Enter Drug/Name Code only if entry is made for result in column 59.
DESCRIPTION:
This is a code indicating that a result is available for another drug level in the urinalysis.
2100,5055 OTHER DRUG 1 RESULT YSDDC5;56 SET
'P' FOR positive;
'N' FOR negative;
'Q' FOR questionable;
OUTPUT TRANSFORM: I $D(GECSOT),(Y']"") S Y=" "
LAST EDITED: MAR 28, 1991
DESCRIPTION: This is a code indicating whether the result of the urine assay was positive, negative or
questionable.
2100,5056 OTHER DRUG 2 PRESCRIBED YSDDC5;57 SET
'X' FOR YES;
OUTPUT TRANSFORM: I $D(GECSOT),(Y']"") S Y=" "
LAST EDITED: MAR 28, 1991
HELP-PROMPT: Enter "X" or
DESCRIPTION:
This is a flag to indicate that another drug is prescribed for this patient.
2100,5057 DRUG NAME/CODE OTHER 2 YSDDC5;58 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S(Y'?1.2N:" ",$L(Y)=1:"0"_Y,1:Y)
LAST EDITED: APR 04, 1991
HELP-PROMPT: Enter only if entry is made for result in card column 63.
DESCRIPTION:
This is a code indicating that a result is available for another drug level in the urinalysis.
2100,5058 OTHER DRUG 2 RESULT YSDDC5;59 SET
'P' FOR positive;
'N' FOR negative;
'Q' FOR questionable;
OUTPUT TRANSFORM: I $D(GECSOT),(Y']"") S Y=" "
LAST EDITED: MAR 28, 1991
DESCRIPTION: This is a code indicating whether the result of the urine assay was positive, negative or
questionable.
2100,5059 OTHER DRUG 3 PRESCRIBED YSDDC5;60 SET
'X' FOR YES;
OUTPUT TRANSFORM: I $D(GECSOT),(Y']"") S Y=" "
LAST EDITED: MAR 28, 1991
HELP-PROMPT: Enter "X" or
DESCRIPTION:
This is a flag to indicate that another drug is prescribed for this patient.
2100,5060 DRUG NAME/CODE OTHER 3 YSDDC5;61 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S(Y'?1.2N:" ",$L(Y)=1:"0"_Y,1:Y)
LAST EDITED: APR 04, 1991
HELP-PROMPT: Enter only if entry is made for result in card column 67.
DESCRIPTION:
This is a code indicating that a result is available for another drug level in the urinalysis.
2100,5061 OTHER DRUG 3 RESULT YSDDC5;62 SET
'P' FOR positive;
'N' FOR negative;
'Q' FOR questionable;
OUTPUT TRANSFORM: I $D(GECSOT),(Y']"") S Y=" "
LAST EDITED: MAR 28, 1991
DESCRIPTION: This is a code indicating whether the result of the urine assay was positive, negative or
questionable.
2100,5062 NOT TESTED-QTY NOT SUFFICIENT YSDDC5;63 SET
'X' FOR YES;
OUTPUT TRANSFORM: I $D(GECSOT),(Y']"") S Y=" "
LAST EDITED: MAR 28, 1991
HELP-PROMPT: Enter "X" if specimen was too small to test
DESCRIPTION: This is a flag it indicate the specimen collected for urinalysis was NOT tested, due to
insufficient quantity.
2100,5063 COUNSELING SESSION DATE YSDDC5A;1 DATE (Required)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
OUTPUT TRANSFORM: S %=Y D DD^%DT I $D(GECSOT) S Y=%,Y=$E(Y,4,5)_$E(Y,6,7)_$E(Y,2,3)
LAST EDITED: JUL 06, 1998
HELP-PROMPT: Enter the date of the counseling session.
DESCRIPTION:
This is the date on which the counseling session being reported by this transaction occurred.
2100,5064 SUBJ DISC/REASON FOR ABS 1 YSDDC5A;2 SET (Required)
'B' FOR subst abuse;
'E' FOR economics;
'M' FOR medical;
'P' FOR psychological;
'S' FOR social;
'C' FOR couns unavailable;
'H' FOR hospital;
'J' FOR jail;
'U' FOR unauthorized absence;
'V' FOR avoidance of couns;
'A' FOR authorized absence;
LAST EDITED: MAR 27, 1991
DESCRIPTION: This is a code describing the subjects discussed, or the reason for absence from the counseling
session being reported by this transaction.
2100,5065 SUBJ DISC/REASON FOR ABS 2 YSDDC5A;3 SET
'B' FOR subst abuse;
'E' FOR economics;
'M' FOR medical;
'P' FOR psychological;
'S' FOR social;
'C' FOR couns unavailable;
'H' FOR hospital;
'J' FOR jail;
'U' FOR unauthorized absence;
'V' FOR avoidance of couns;
OUTPUT TRANSFORM: I $D(GECSOT),(Y']"") S Y=" "
LAST EDITED: MAR 28, 1991
DESCRIPTION: This is a code describing the subjects discussed, or the reason for absence from the counseling
session being reported by this transaction.
2100,5066 SUBJ DISC/REASON FOR ABS 3 YSDDC5A;4 SET
'B' FOR subst abuse;
'E' FOR economics;
'M' FOR medical;
'P' FOR psychological;
'S' FOR social;
'C' FOR couns unavailable;
'H' FOR hospital;
'J' FOR jail;
'U' FOR unauthorized absence;
'V' FOR avoidance of couns;
OUTPUT TRANSFORM: I $D(GECSOT),(Y']"") S Y=" "
LAST EDITED: MAR 28, 1991
DESCRIPTION: This is a code describing the subjects discussed, or the reason for absence from the counseling
session being reported by this transaction.
2100,5067 HCF CENTRAL OFFICE USE ONLY YSDDC5A;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>4!($L(X)<4) X
OUTPUT TRANSFORM: I $D(GECSOT) S Y=$S($L(Y)<4:" ",1:Y)
LAST EDITED: APR 05, 1991
HELP-PROMPT: Answer must be 4 characters in length.
DESCRIPTION: This is a four character pad reserved in the record for central office use. Its existence is
transparent to the user.
FILES POINTED TO FIELDS
GENERIC CODE SHEET BATCH TYPE
(#2101.1) BATCH TYPE (#2)
NEW PERSON (#200) PREPARED BY (#.95)
CREATED BY (#9.01)
INPUT TEMPLATE(S):
A4CG AMS4 BMS CONTRACT HRS APR 30, 1990@15:38 USER #0
A4CG AMS4 BMS ENVIR CARE APR 30, 1990@15:39 USER #0
A4CG AMS4 BMS HRS WORKED SEP 18, 1990@10:59 USER #0
A4CG AMS4 BMS TEXTILE CARE APR 30, 1990@15:42 USER #0
A4CG AMS4 CHAP FUNDS SEP 21, 1990@08:45 USER #1
A4CG AMS4 CHAP MONTHLY JUL 30, 1990@09:27 USER #0
A4CG AMS4 MMP QUARTERLY APR 30, 1990@15:45 USER #0
A4CG AMS4 NURS FTEE SEP 17, 1990@14:16 USER #0
A4CG AMS4 NURS MANHOURS APR 30, 1990@15:47 USER #0
A4CG AMS4 NURS MANPOWER APR 30, 1990@15:48 USER #0
A4CG AMS4 REC DIRECT SEP 19, 1990@11:26 USER #0
A4CG AMS4 REC INDIRECT SEP 19, 1990@11:29 USER #0
DG AMS1 AMIS OCT 15, 1991@11:14 USER #0
DG AMS1 AMIS 334 OCT 15, 1991@11:26 USER #0
DG AMS1 AMIS 336 OCT 15, 1991@11:28 USER #0
DG AMS1 AMIS 345 OCT 15, 1991@11:28 USER #0
DG AMS1 AMIS 400 JUN 20, 1989@09:45 USER #0
DG AMS1 AMIS 420 JUN 20, 1989@09:45 USER #0
DG AMS1C AMIS 167 JUL 12, 1989@12:14 USER #0
DG AMS1D AMIS 290 DEC 05, 1991@08:21 USER #0
ESP AMS7 196 SEP 07, 1990@11:02 USER #0
FB AMS1 RCS 18-3 AUG 19, 1994@12:35 USER #0
FB AMS1A AMIS 344 SEP 17, 1990@12:30 USER #0
FB AMS1A AMIS 349 APR 11, 1990@10:57 USER #0
FB AMS1A AMIS 350 SEP 07, 1990@07:57 USER #0
FB FEEBASIS-IFCAP 994.00 JUN 09, 1994@12:04 USER #0
FB FEEBASIS-IFCAP 994.01 JUN 09, 1994@12:08 USER #0
FB FEEBASIS-IFCAP 994.90 JUN 09, 1994@12:10 USER #0
FH AMS4 224 DEC 14, 1990@10:37 USER #0
GECO FORM2 REQUISITION SEP 20, 1990@19:25 USER #0
GECO HBHC2 DISCHARGE FORM 5 SEP 20, 1990@19:31 USER #0
GECO HBHC2 EVAL/ADM FORM 3 JUL 17, 1990@13:12 USER #1
GECO HBHC2 VISIT LOG FORM 4 SEP 20, 1990@19:36 USER #0
GECO NSY4 STAFF MGMT - 1 SEP 20, 1990@18:59 USER #1
GECO NSY4 STAFF MGMT - 2 SEP 20, 1990@19:00 USER #0
GECO NSY4 STAFF MGMT - 3 SEP 20, 1990@19:01 USER #0
GECO NSY4 STAFF MGMT - 4 SEP 20, 1990@19:01 USER #0
GECO NSY4 STAFF MGMT - 5 SEP 20, 1990@19:01 USER #0
GECO NSY4 STAFF MGMT - 6 SEP 20, 1990@19:02 USER #0
GECO NSY4 STAFF MGMT - 7 JUL 06, 1990@14:27 USER #2081
GECO PER4 RECRUITMENT OCT 10, 1990@08:53 USER #0
GECO PER4 VACANT POSITIONS OCT 10, 1990@09:06 USER #0
GECO PHY4 PHYSICIAN PART-1 OCT 10, 1990@10:50 USER #0
GECO PHY4 PHYSICIAN PART-2 NOV 06, 1990@09:30 USER #0
GECO PHY4 PHYSICIAN PART-3 NOV 06, 1990@09:32 USER #0
GECO PHY4 PHYSICIAN PART-4 NOV 06, 1990@09:34 USER #0
GECO WGE4 BLS FORM SEP 24, 1990@09:22 USER #0
GECO WGE4 CONT FORM SEP 24, 1990@09:25 USER #0
GECO WGE4 DATA FORM SEP 24, 1990@09:28 USER #0
GECO WGE4 EI FORM SEP 24, 1990@09:29 USER #0
GECO WGE4 PARAMETERS SEP 24, 1990@11:12 USER #0
GECS KEYPUNCH JAN 11, 1989 USER #0
LR AMS5 ADMIN DATA H01 JUN 18, 1990@09:48 USER #0
LR AMS5 ADMIN DATA J08 SEP 18, 1990@09:07 USER #0
LR AMS5 AFIPA 378 MAR 21, 1990@17:16 USER #0
LR AMS5 AUTO CHEM H02-H18 JUN 18, 1990@15:56 USER #0
LR AMS5 AUTO CHEM H19-H76 SEP 17, 1990@21:23 USER #0
LR AMS5 AUTO CHEM H77-H85 APR 20, 1990@11:53 USER #0
LR AMS5 BB MAN & AUTO H28 SEP 17, 1990@21:34 USER #0
LR AMS5 BB MAN & AUTO H29 SEP 17, 1990@21:40 USER #0
LR AMS5 BG & CHEM H87 SEP 18, 1990@08:27 USER #0
LR AMS5 BLOOD BANK H84 SEP 18, 1990@08:21 USER #0
LR AMS5 BLOOD BANK H86 APR 20, 1990@16:07 USER #0
LR AMS5 CHEM MAN & AUTO H46 SEP 17, 1990@22:04 USER #0
LR AMS5 CHEM MAN & AUTO H48 JUN 19, 1990@13:13 USER #0
LR AMS5 CHEM MAN & AUTO H50 JAN 28, 1991@09:23 USER #0
LR AMS5 CHEM MAN & AUTO H52 APR 11, 1990@09:57 USER #0
LR AMS5 CHEM MAN & AUTO H54 SEP 17, 1990@22:10 USER #0
LR AMS5 CHEM MAN & AUTO H56 APR 11, 1990@14:05 USER #0
LR AMS5 CHEM MAN & AUTO H58 APR 11, 1990@15:16 USER #0
LR AMS5 CHEM MAN & AUTO H60 APR 11, 1990@16:07 USER #0
LR AMS5 CHEM MAN & AUTO H62 APR 12, 1990@08:41 USER #0
LR AMS5 CHEM MAN & AUTO H64 APR 12, 1990@09:12 USER #0
LR AMS5 CHEM MAN & AUTO H66 SEP 17, 1990@22:12 USER #0
LR AMS5 CHEM MAN & AUTO H68 SEP 17, 1990@22:17 USER #0
LR AMS5 CHEM MAN TESTS H15 MAR 22, 1990@07:45 USER #0
LR AMS5 CHEM MAN TESTS H16 MAR 22, 1990@07:55 USER #0
LR AMS5 CHEM MAN TESTS H17 JUN 19, 1990@13:22 USER #0
LR AMS5 CYTOLOGY H96 APR 21, 1990@09:11 USER #0
LR AMS5 DRUG AND TOXIC H47 JUN 18, 1990@15:37 USER #0
LR AMS5 DRUG AND TOXIC H49 MAR 27, 1990@16:29 USER #0
LR AMS5 DRUG AND TOXIC H51 SEP 17, 1990@22:08 USER #0
LR AMS5 DRUG AND TOXIC H53 APR 11, 1990@10:29 USER #0
LR AMS5 DRUG AND TOXIC H55 APR 11, 1990@13:44 USER #0
LR AMS5 DRUG AND TOXIC H57 APR 11, 1990@14:55 USER #0
LR AMS5 DRUG AND TOXIC H59 APR 11, 1990@15:50 USER #0
LR AMS5 DRUG AND TOXIC H61 APR 11, 1990@16:24 USER #0
LR AMS5 DRUG AND TOXIC H63 APR 12, 1990@08:57 USER #0
LR AMS5 DRUG AND TOXIC H65 APR 12, 1990@09:48 USER #0
LR AMS5 DRUG AND TOXIC H67 SEP 17, 1990@22:15 USER #0
LR AMS5 DRUG AND TOXIC H69 APR 17, 1990@11:25 USER #0
LR AMS5 DRUG DEP PROG J09 SEP 18, 1990@09:12 USER #0
LR AMS5 ELECTRON MICRO H95 SEP 18, 1990@08:56 USER #0
LR AMS5 ENVIRONMENTAL H99 SEP 18, 1990@09:05 USER #0
LR AMS5 HEM MAN & AUTO H24 JUN 18, 1990@15:45 USER #0
LR AMS5 HEM MAN & AUTO H26 JUN 18, 1990@15:33 USER #0
LR AMS5 HEMATOLOGY H78 SEP 18, 1990@08:18 USER #0
LR AMS5 HEMATOLOGY H79 APR 20, 1990@13:35 USER #0
LR AMS5 HEMATOLOGY H80 APR 20, 1990@13:43 USER #0
LR AMS5 HISTOLOGY H36 MAR 27, 1990@11:12 USER #0
LR AMS5 HISTOLOGY H94 APR 21, 1990@08:53 USER #0
LR AMS5 IDENT KITS H90 SEP 18, 1990@08:41 USER #0
LR AMS5 IMMUN MAN & AUTO H30 SEP 17, 1990@21:44 USER #0
LR AMS5 IMMUNOLOGY H88 SEP 18, 1990@08:30 USER #0
LR AMS5 IMMUNOLOGY H89 SEP 18, 1990@08:33 USER #0
LR AMS5 M,B,GM,SP H33 JUN 19, 1990@13:18 USER #0
LR AMS5 MICRO AUTO H32 MAR 27, 1990@10:14 USER #0
LR AMS5 MICRO BLOOD CULT H34 MAR 27, 1990@10:58 USER #0
LR AMS5 MISCELLANEOUS H42 MAR 27, 1990@11:16 USER #0
LR AMS5 MISCELLANEOUS J07 OCT 23, 1990@12:06 USER #0
LR AMS5 MYCOBACTERIOLOGY H91 SEP 18, 1990@08:45 USER #0
LR AMS5 MYCOLOGY H92 SEP 18, 1990@08:51 USER #0
LR AMS5 PARASITOLOGY H93 SEP 18, 1990@08:55 USER #0
LR AMS5 RADIOISOTOPES J03 APR 21, 1990@14:49 USER #0
LR AMS5 SPEC PROC & DISP H44 JUN 18, 1990@15:24 USER #0
LR AMS5 SUSCEPTIBILITY H97 SEP 18, 1990@09:03 USER #0
LR AMS5 URINE AND FECES H22 MAR 22, 1990@08:02 USER #0
LR AMS5 URINE AND FECES H74 SEP 17, 1990@22:19 USER #0
LR AMS5 VIROLOGY H98 APR 21, 1990@09:39 USER #0
MC AMS2 230 HOME OXYGEN SEP 17, 1990@10:58 USER #0
MC AMS2 234 AUD-SPEECH PATH SEP 07, 1990@09:20 USER #0
MC AMS2 J15 CATHETERIZATION SEP 07, 1990@08:36 USER #0
MC AMS2 J19 DIALYSIS SEP 18, 1990@20:46 USER #0
MC AMS2 J41 MICU OCT 22, 1990@13:07 USER #0
MC AMS2 J42 SICU OCT 22, 1990@13:09 USER #0
MC AMS2 J43 CCU OCT 22, 1990@13:10 USER #0
MC AMS2 J44 GEN PURPOSE UNIT SEP 18, 1990@14:09 USER #0
PRCC CA2 10-2418 HEADER OCT 25, 1990@13:30 USER #0
PRCC CA2 10-2418D1 APR 12, 1990@13:59 USER #0
PRCC CA2 10-2418D2 OCT 22, 1990@13:14 USER #0
PRCC CA2 10-2418D3 APR 12, 1990@14:54 USER #0
PRCC CA2 10-2418D3T MAR 05, 1991@10:57 USER #1
PRCC CA2 10-2418a APR 12, 1990@13:41 USER #0
PRCFMS:AO SEP 01, 1994@14:10 USER #55
PRCFMS:AT JUL 22, 1994@14:58 USER #50
PRCFMS:AV SEP 01, 1994@08:58 USER #55
PRCFMS:BD JAN 27, 1995@14:52 USER #0
PRCFMS:CO(CONTRACT ORDER) SEP 02, 1994@09:09 USER #55
PRCFMS:CONTROL JUN 06, 1994@14:35 USER #7
PRCFMS:CR JAN 27, 1995@15:30 USER #0
PRCFMS:CX AUG 31, 1994@09:35 USER #55
PRCFMS:DD FEB 09, 1995@14:04 USER #55
PRCFMS:DV AUG 31, 1994@09:32 USER #55
PRCFMS:IF AUG 31, 1994@09:52 USER #55
PRCFMS:IV JUL 08, 1994@11:22 USER #55
PRCFMS:MO SEP 01, 1994@11:16 USER #55
PRCFMS:MV SEP 01, 1994@08:20 USER #55
PRCFMS:NC AUG 31, 1994@10:34 USER #55
PRCFMS:OP MAY 10, 1994@15:53 USER #42
PRCFMS:PV SEP 01, 1994@10:05 USER #55
PRCFMS:RC SEP 02, 1994@11:36 USER #55
PRCFMS:RO AUG 30, 1994@14:59 USER #55
PRCFMS:RT SEP 02, 1994@09:57 USER #55
PRCFMS:RV AUG 31, 1994@08:59 USER #55
PRCFMS:SA JUL 22, 1994@08:57 USER #50
PRCFMS:SO SEP 01, 1994@13:21 USER #55
PRCFMS:ST JUL 22, 1994@15:47 USER #0
PRCFMS:SV FEB 06, 1995@11:20 USER #42
PRCFMS:TN AUG 31, 1994@14:57 USER #55
PRCFMS:TO JAN 19, 1995@09:41 USER #55
PRCFMS:TP JAN 11, 1995@13:44 USER #55
PRCFMS:TV JAN 19, 1995@11:34 USER #55
PRCFMS:TY DEC 05, 1994@16:14 USER #55
PRCFMS:TZ JAN 19, 1995@13:25 USER #55
PRCFMS:WR NOV 03, 1994@15:27 USER #0
PSGE AMS3 AMIS 157 MAY 14, 1990@13:49 USER #0
PSGE AMS3 AMIS 158 MAY 14, 1990@09:14 USER #0
RA AMS1 AMIS 186 SEP 17, 1990@08:24 USER #0
RMPR AMS5 AMIS 120 SEP 16, 1990@21:02 USER #0
RMPR AMS5 AMIS 121 SEP 16, 1990@21:17 USER #0
RMPR AMS5 AMIS 122 SEP 18, 1990@18:59 USER #0
RMPR AMS5 AMIS 123 SEP 18, 1990@19:06 USER #0
RMPR AMS5 AMIS 124 SEP 18, 1990@19:31 USER #0
RMPR AMS5 AMIS 125 SEP 18, 1990@19:36 USER #0
RMPR AMS5 AMIS 126 SEP 18, 1990@19:41 USER #0
RMPR AMS5 AMIS 127 SEP 18, 1990@19:46 USER #0
RMPR AMS5 AMIS 128 SEP 18, 1990@19:50 USER #0
RMPR AMS5 AMIS 129 SEP 18, 1990@19:56 USER #0
RMPR AMS5 AMIS 130 SEP 18, 1990@20:00 USER #0
RMPR AMS5 AMIS 131 SEP 18, 1990@20:09 USER #0
RMPR AMS5 AMIS 132 MAY 16, 1990@12:19 USER #0
RMPR AMS5 AMIS 133 MAY 16, 1990@13:26 USER #0
RMPR AMS5 AMIS 134 JUN 17, 1990@14:38 USER #0
RMPR AMS5 AMIS 135 JUN 17, 1990@13:58 USER #0
RMPR AMS5 AMIS 136 JUN 17, 1990@14:06 USER #0
RMPR AMS5 AMIS 137 SEP 16, 1990@20:45 USER #0
RMPR AMS5 AMIS 138 SEP 16, 1990@20:51 USER #0
RMPR AMS5 AMIS 139 SEP 18, 1990@20:12 USER #0
RMPR AMS5 AMIS 150 SEP 16, 1990@20:55 USER #1
RMPR AMS5 AMIS 173 JUN 17, 1990@22:26 USER #0
RMPR AMS5 AMIS 174 JUN 17, 1990@23:24 USER #0
RMPR AMS5 AMIS 362 JUN 19, 1990@11:09 USER #0
RMPR AMS5 AMIS 363 JAN 28, 1991@09:56 USER #0
SD AMS1 AMIS223 JUN 20, 1989@12:14 USER #0
SR AMS3 AMIS 177 SEP 17, 1990@09:19 USER #0
VOLU VOL2 01 ADD NEW VOL NOV 19, 1990@13:15 USER #0
VOLU VOL2 02 ADD NEW VOL NOV 19, 1990@13:22 USER #0
VOLU VOL2 03 CHANGE VOL DATA NOV 19, 1990@13:24 USER #0
VOLU VOL2 03 REACTIVATE VOL NOV 19, 1990@13:25 USER #0
VOLU VOL2 03 TERMINATE VOL NOV 19, 1990@13:26 USER #0
VOLU VOL2 04 CHANGE VOL DATA NOV 19, 1990@13:27 USER #0
VOLU VOL2 04 DELETE COMB NOV 19, 1990@13:27 USER #0
VOLU VOL2 05 ADD NEW VOL NOV 19, 1990@13:28 USER #0
VOLU VOL2 08 CORRECT COMB NOV 19, 1990@13:29 USER #0
VOLU VOL2 09 DELETE VOL NOV 19, 1990@13:30 USER #0
VOLU VOL2 10 CHANGE COMB NOV 19, 1990@13:31 USER #0
VOLU VOL2 10 DELETE COMB NOV 19, 1990@13:31 USER #0
VOLU VOL2 11 CORRECT COMB NOV 19, 1990@13:32 USER #0
YS AMS5 169 JUN 20, 1990@12:59 USER #0
YS AMS5 171 NOV 01, 1990@10:24 USER #0
YS AMS5 172 JUN 20, 1990@13:43 USER #0
YS AMS5 222 JUN 20, 1990@20:02 USER #0
YS AMS5 229 JUN 20, 1990@13:08 USER #0
YS AMS5 311 SEP 17, 1990@07:49 USER #0
YS AMS5 312 SEP 17, 1990@11:43 USER #0
YS AMS5 313 JUN 20, 1990@13:27 USER #0
YS AMS5 314 OCT 22, 1990@09:58 USER #0
YS AMS5 315 JUN 20, 1990@13:30 USER #0
YS AMS5 316 JUN 20, 1990@13:32 USER #0
YS AMS5 317 JUN 20, 1990@20:38 USER #0
YS AMS5 318 OCT 18, 1990@11:03 USER #0
YS AMS5 319 OCT 22, 1990@09:41 USER #0
YS AMS5 324 OCT 22, 1990@09:09 USER #0
YSDD DDC5 5333 JUN 04, 1991@15:13 USER #0
YSDD DDC5 5334 MAR 29, 1991@09:47 USER #0
YSDD DDC5 5335 MAR 29, 1991@08:23 USER #0
YSDD DDC5 5356 JUN 07, 1991@17:37 USER #0
YSDD DDC5 5357 APR 01, 1991@09:55 USER #0
YSDD DDC5 53CO MAR 29, 1991@09:35 USER #0
PRINT TEMPLATE(S):
GECS READY FOR BATCHING AUG 16, 1990@18:37 USER #0 GENERIC CODE SHEET STATISTICS
GECS READY FOR TRANSMISSION JAN 03, 1989 USER #0 GENERIC CODE SHEET STATISTICS
GECS TRANSMISSION MAR 16, 1989 USER #0 GENERIC CODE SHEET STATISTICS
GECS TRANSMIT LIST JAN 03, 1989 USER #0 GENERIC CODE SHEET LIST
SORT TEMPLATE(S):
GECS READY FOR BATCHING AUG 16, 1990@18:36 USER #0
SORT BY: ]@READY FOR BATCHING//
WITHIN READY FOR BATCHING, SORT BY: @SCHEDULED TRANSMISSION DATE//
WITHIN SCHEDULED TRANSMISSION DATE, SORT BY: @STATION NUMBER//
WITHIN STATION NUMBER, SORT BY: @BATCH TYPE//
WITHIN BATCH TYPE, SORT BY: @TRANSACTION TYPE/SEGMENT//
GECS READY FOR TRANSMISSION JAN 03, 1989 USER #0
SORT BY: ]@READY FOR TRANSMISSION//
WITHIN READY FOR TRANSMISSION, SORT BY: BATCH NUMBER//
WITHIN BATCH NUMBER, SORT BY: @BATCH PRIORITY//
WITHIN BATCH PRIORITY, SORT BY: @SCHEDULED TRANSMISSION DATE//
GECS TRANSMISSION JAN 09, 1989 USER #0
SORT BY: @BATCH NUMBER//
WITHIN BATCH NUMBER, SORT BY: @BATCH PRIORITY//
WITHIN BATCH PRIORITY, SORT BY: @ID//
FORM(S)/BLOCK(S):