ESP122PT ;ALB/JAP; POST-INSTALL FOR ES*1*22;3/98
;;1.0;POLICE & SECURITY;**22**;Mar 31, 1994
EN ;entry point
;no harm is done if run multiple times
N ZTSK,ZTRTN,ZTDESC,ZTREQ,ZTSAVE,ZTIO,ZTDTH,ESPC,ESPU
D FILE1
D FILE2
D CONVERT
;print conversion reports
S ESPION=$G(XPDQUES("POSPRINT","B"))
I ESPION=""!(ESPION["^") K ESPION
I $D(ESPION) S ZTIO=ESPION
S (ESPC,ESPU)=1 D NOW^%DTC S %=$E(%,1,12),ZTDTH=%+.001
S ZTRTN="PRINT^ESP122P1",ZTDESC="Print ES*1*22 Conversion Report",ZTREQ="@"
S ZTSAVE("ESPC")="",ZTSAVE("ESPU")="",ZTSAVE("ZTREQ")=""
D ^%ZTLOAD
I $G(ZTSK)>0 D
.W !!,"Conversion Reports queued as Task #",ZTSK,".",!!
I '$G(ZTSK) D
.W !!,"Unable to queue Conversion Reports.",!,"Use the Conversion Management print option later.",!!
K ESPION
Q
;
FILE1 ;add new entries to file #912.9
N I,J,TEXT,TYPE,CAT,DIC,DLAYGO,DINUM,X,Y,DIE,DR,DA
S DIC="^ESP(912.9,",DIC(0)="L",DLAYGO=912.9
F J=1:1:4 S TEXT=$P($T(NEWREC+J),";;",2) D
.S DINUM=$P(TEXT,U,1),X=$P(TEXT,U,2),TYPE=$P(TEXT,U,3),CAT=$P(TEXT,U,4)
.I $D(^ESP(912.9,DINUM,0)),$P(^(0),U,1)=X Q
.S DIC("DR")=".02////"_TYPE_";.03////"_CAT
.K DO,DD D FILE^DICN
.I Y=-1 D
..W !!,"File #912.9, filing entry #"_$P(TEXT,U,1)
..W !," for "_$P(TEXT,U,2)_" was unsuccessful."
.I +Y>0 D
..W !!,"File #912.9, entry #"_$P(TEXT,U,1)
..W !," for "_$P(TEXT,U,2)_" was successfully filed."
;put inactivation dates in entries 23,24,25,26
S TEXT(23)="ABOVE $100 (GOV'T)"
S TEXT(24)="BELOW $100 (GOV'T)"
S TEXT(25)="ABOVE $100 (PERSONAL)"
S TEXT(26)="BELOW $100 (PERSONAL)"
F I=23,24,25,26 D
.I '$D(^ESP(912.9,I,1)) S DIE="^ESP(912.9,",DR="1////2971001",DA=I D ^DIE
.I $P($G(^ESP(912.9,I,1)),U,1)=2971001 D
..W !!,"File #912.9, entry #"_I
..W !," for "_TEXT(I)_" inactivated"
..W !," effective October 1, 1997."
.I $P($G(^ESP(912.9,I,1)),U,1)'=2971001 D
..W !!,"File #912.9, entry #"_I
..W !," for "_TEXT(I)
..W !," has not been properly inactivated."
Q
;
FILE2 ;update file #915
N I
K ^TMP($J,"WP"),^TMP($J,"ERR")
I $P($G(^ESP(915,55,0)),U,1)'="THEFT-GOVERNMENT PROPERTY" D
.W !!,"File #915, entry #55"
.W !," ...not updated."
.W !," Field #.01'=THEFT-GOVERNMENT PROPERTY"
I $P($G(^ESP(915,55,0)),U,1)="THEFT-GOVERNMENT PROPERTY" D
.F J=1:1:13 S ^TMP($J,"WP",J)=$P($T(UP55+J),";;",2)
.D WP^DIE(915,"55,",10,,"^TMP($J,""WP"")","^TMP($J,""ERR"")")
.I $D(^TMP($J,"ERR")) D
..W !!,"File #915, entry #55 - THEFT-GOVERNMENT PROPERTY"
..W !," ...not updated."
..W !," "_^TMP($J,"ERR","DIERR",1,"TEXT",1)
.I '$D(^TMP($J,"ERR")) D
..W !!,"File #915, entry #55 - THEFT-GOVERNMENT PROPERTY"
..W !," ...successfully updated."
K ^TMP($J,"WP"),^TMP($J,"ERR")
I $P($G(^ESP(915,56,0)),U,1)'="THEFT-PERSONAL PROPERTY" D
.W !!,"File #915, entry #56"
.W !," ...not updated."
.W !," Field #.01'=THEFT-PERSONAL PROPERTY"
I $P($G(^ESP(915,56,0)),U,1)="THEFT-PERSONAL PROPERTY" D
.F J=1:1:14 S ^TMP($J,"WP",J)=$P($T(UP56+J),";;",2)
.D WP^DIE(915,"56,",10,,"^TMP($J,""WP"")","^TMP($J,""ERR"")")
.I $D(^TMP($J,"ERR")) D
..W !!,"File #915, entry #56 - THEFT-PERSONAL PROPERTY"
..W !," ...not updated."
..W !," "_^TMP($J,"ERR","DIERR",1,"TEXT",1)
.I '$D(^TMP($J,"ERR")) D
..W !!,"File #915, entry #56 - THEFT-PERSONAL PROPERTY"
..W !," ...successfully updated."
K ^TMP($J,"WP"),^TMP($J,"ERR")
Q
;
CONVERT ;convert file #912 data
;for any offense occurring after midnight 9-30-97;
;convert any subtype 24 or 26 automatically;
;convert any aubtype 23 or 25 only if it's the only subtype and the dollar amount
;of property loss is known;
;all other cases of subtype 23 or 25 require user intervention.
N ESDTBEG,ESDTREC,ESIEN,ESSUBT,ESN,ESNN,ESMONEY,ESCNVDT,ESCREAT,ESPURGE,X1,X2
D NOW^%DTC S Y=$E(%,1,12),ESCNVDT=$$FMTE^XLFDT(Y,"5"),(ESCREAT,X1)=$P(%,".",1),X2=90 D C^%DTC S ESPURGE=X
;create the zero node for the temp storage global
S ^XTMP("ESP",0)=ESPURGE_"^"_ESCREAT_"^temporary storage for ES*1*22"
;sort thru "C" xref; check field #.03
S (ESDTBEG,ESDTREC)=2970930.235959
F S ESDTREC=$O(^ESP(912,"C",ESDTREC)) Q:ESDTREC="" S ESIEN=$O(^(ESDTREC,0)) I ESIEN D
.Q:'$D(^ESP(912,ESIEN)) Q:$P(^ESP(912,ESIEN,0),"^",3)'>ESDTBEG
.S ESN=0
.F S ESN=$O(^ESP(912,ESIEN,10,ESN)) Q:+ESN=0 D
..S ESMONEY=0,ESNN=0 F S ESNN=$O(^ESP(912,ESIEN,90,ESNN)) Q:+ESNN=0 S ESMONEY=ESMONEY+$P(^(ESNN,0),U,3)
..;subtype=23,24,25,26 only
..S ESSUBT=$P(^ESP(912,ESIEN,10,ESN,0),U,3) Q:(ESSUBT<23)!(ESSUBT>26) D
...;automatically update any below $100 subtypes
...I ESSUBT=24 S $P(^ESP(912,ESIEN,10,ESN,0),U,3)=40,^XTMP("ESP","CONV",ESIEN,ESN)=ESSUBT_"^40^.5^"_ESCNVDT Q
...I ESSUBT=26 S $P(^ESP(912,ESIEN,10,ESN,0),U,3)=42,^XTMP("ESP","CONV",ESIEN,ESN)=ESSUBT_"^42^.5^"_ESCNVDT Q
...;above $100 subtypes are still to be processed;
...;if there is only one classification node and the property loss is known, then convert subtype
...I ESN=1,+$O(^ESP(912,ESIEN,10,ESN))=0 D Q
....I ESMONEY>0,ESMONEY<1001 D Q
.....I ESSUBT=23 S $P(^ESP(912,ESIEN,10,ESN,0),U,3)=40,^XTMP("ESP","CONV",ESIEN,ESN)=ESSUBT_"^40^.5^"_ESCNVDT Q
.....I ESSUBT=25 S $P(^ESP(912,ESIEN,10,ESN,0),U,3)=42,^XTMP("ESP","CONV",ESIEN,ESN)=ESSUBT_"^42^.5^"_ESCNVDT Q
....I ESMONEY>1000 D Q
.....I ESSUBT=23 S $P(^ESP(912,ESIEN,10,ESN,0),U,3)=39,^XTMP("ESP","CONV",ESIEN,ESN)=ESSUBT_"^39^.5^"_ESCNVDT Q
.....I ESSUBT=25 S $P(^ESP(912,ESIEN,10,ESN,0),U,3)=41,^XTMP("ESP","CONV",ESIEN,ESN)=ESSUBT_"^41^.5^"_ESCNVDT Q
....;if still not processed, then this subtype conversion requires user intervention
....S ^XTMP("ESP","USER",ESIEN,ESN)=ESSUBT_"^"_ESMONEY
...;if esn'=1 or esn=1 but multiple
...S ^XTMP("ESP","USER",ESIEN,ESN)=ESSUBT_"^"_ESMONEY
Q
;
NEWREC ;new file entries for file #912.9
;;39^ABOVE $1000 (GOV'T)^46^11
;;40^BELOW $1000 (GOV'T)^46^11
;;41^ABOVE $1000 (PERSONAL)^47^11
;;42^BELOW $1000 (PERSONAL)^47^11
;
UP55 ;update record #55 in file #915
;;Whoever embezzles, steals, purloins, or knowingly converts to his use
;;or the use of another, or without authority, sells, conveys or
;;disposes of any record, voucher, money, or thing of value of the
;;United States or of any department or agency thereof, or any property
;;made or being made under contract for the United States or any
;;department or agency thereof, or Whoever receives, conceals or retains
;;the same with intent to convert it to his use or gain, knowing it to
;;have been embezzled, stolen, purloined or converted---Shall be fined
;;not more than $10,000 or imprisoned not more than ten years, or both;
;;but if the value of such property does not exceed the sum of $1000, he
;;shall be fined not more than $1,000 or imprisoned not more than one
;;year, or both. The word "value" means face, par or market value, or
;;cost price, either wholesale or retail; whichever is greater.
;
UP56 ;update record #56 in file #915
;;Whoever, within the special maritime and territorial jurisdiction
;;of the United States, takes and carries away, with intent to steal
;;or purloin, any personal property of another, shall be punished as
;;follows: If the property taken is of a value exceeding $1000, or is
;;taken from the person of another, by a fine of not more than $5,000,
;;or imprisonment for not more than five years, or both; in all other
;;cases by a fine of not more than $1,000 or by imprisonment not
;;more than one year, or both. If the property stolen consists of any
;;evidence of debt, or other written instrument, the amount of money
;;due thereon, or secured to be paid thereby and remaining unsatisfied,
;;or which in any contingency might be collected thereon, or the value
;;of the property the title to which is shown thereby, or the sum
;;which might be recovered in the absence thereof, shall be the value
;;of the property stolen.
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HESP122PT 7934 printed Sep 23, 2025@20:05:54 Page 2
ESP122PT ;ALB/JAP; POST-INSTALL FOR ES*1*22;3/98
+1 ;;1.0;POLICE & SECURITY;**22**;Mar 31, 1994
EN ;entry point
+1 ;no harm is done if run multiple times
+2 NEW ZTSK,ZTRTN,ZTDESC,ZTREQ,ZTSAVE,ZTIO,ZTDTH,ESPC,ESPU
+3 DO FILE1
+4 DO FILE2
+5 DO CONVERT
+6 ;print conversion reports
+7 SET ESPION=$GET(XPDQUES("POSPRINT","B"))
+8 IF ESPION=""!(ESPION["^")
KILL ESPION
+9 IF $DATA(ESPION)
SET ZTIO=ESPION
+10 SET (ESPC,ESPU)=1
DO NOW^%DTC
SET %=$EXTRACT(%,1,12)
SET ZTDTH=%+.001
+11 SET ZTRTN="PRINT^ESP122P1"
SET ZTDESC="Print ES*1*22 Conversion Report"
SET ZTREQ="@"
+12 SET ZTSAVE("ESPC")=""
SET ZTSAVE("ESPU")=""
SET ZTSAVE("ZTREQ")=""
+13 DO ^%ZTLOAD
+14 IF $GET(ZTSK)>0
Begin DoDot:1
+15 WRITE !!,"Conversion Reports queued as Task #",ZTSK,".",!!
End DoDot:1
+16 IF '$GET(ZTSK)
Begin DoDot:1
+17 WRITE !!,"Unable to queue Conversion Reports.",!,"Use the Conversion Management print option later.",!!
End DoDot:1
+18 KILL ESPION
+19 QUIT
+20 ;
FILE1 ;add new entries to file #912.9
+1 NEW I,J,TEXT,TYPE,CAT,DIC,DLAYGO,DINUM,X,Y,DIE,DR,DA
+2 SET DIC="^ESP(912.9,"
SET DIC(0)="L"
SET DLAYGO=912.9
+3 FOR J=1:1:4
SET TEXT=$PIECE($TEXT(NEWREC+J),";;",2)
Begin DoDot:1
+4 SET DINUM=$PIECE(TEXT,U,1)
SET X=$PIECE(TEXT,U,2)
SET TYPE=$PIECE(TEXT,U,3)
SET CAT=$PIECE(TEXT,U,4)
+5 IF $DATA(^ESP(912.9,DINUM,0))
IF $PIECE(^(0),U,1)=X
QUIT
+6 SET DIC("DR")=".02////"_TYPE_";.03////"_CAT
+7 KILL DO,DD
DO FILE^DICN
+8 IF Y=-1
Begin DoDot:2
+9 WRITE !!,"File #912.9, filing entry #"_$PIECE(TEXT,U,1)
+10 WRITE !," for "_$PIECE(TEXT,U,2)_" was unsuccessful."
End DoDot:2
+11 IF +Y>0
Begin DoDot:2
+12 WRITE !!,"File #912.9, entry #"_$PIECE(TEXT,U,1)
+13 WRITE !," for "_$PIECE(TEXT,U,2)_" was successfully filed."
End DoDot:2
End DoDot:1
+14 ;put inactivation dates in entries 23,24,25,26
+15 SET TEXT(23)="ABOVE $100 (GOV'T)"
+16 SET TEXT(24)="BELOW $100 (GOV'T)"
+17 SET TEXT(25)="ABOVE $100 (PERSONAL)"
+18 SET TEXT(26)="BELOW $100 (PERSONAL)"
+19 FOR I=23,24,25,26
Begin DoDot:1
+20 IF '$DATA(^ESP(912.9,I,1))
SET DIE="^ESP(912.9,"
SET DR="1////2971001"
SET DA=I
DO ^DIE
+21 IF $PIECE($GET(^ESP(912.9,I,1)),U,1)=2971001
Begin DoDot:2
+22 WRITE !!,"File #912.9, entry #"_I
+23 WRITE !," for "_TEXT(I)_" inactivated"
+24 WRITE !," effective October 1, 1997."
End DoDot:2
+25 IF $PIECE($GET(^ESP(912.9,I,1)),U,1)'=2971001
Begin DoDot:2
+26 WRITE !!,"File #912.9, entry #"_I
+27 WRITE !," for "_TEXT(I)
+28 WRITE !," has not been properly inactivated."
End DoDot:2
End DoDot:1
+29 QUIT
+30 ;
FILE2 ;update file #915
+1 NEW I
+2 KILL ^TMP($JOB,"WP"),^TMP($JOB,"ERR")
+3 IF $PIECE($GET(^ESP(915,55,0)),U,1)'="THEFT-GOVERNMENT PROPERTY"
Begin DoDot:1
+4 WRITE !!,"File #915, entry #55"
+5 WRITE !," ...not updated."
+6 WRITE !," Field #.01'=THEFT-GOVERNMENT PROPERTY"
End DoDot:1
+7 IF $PIECE($GET(^ESP(915,55,0)),U,1)="THEFT-GOVERNMENT PROPERTY"
Begin DoDot:1
+8 FOR J=1:1:13
SET ^TMP($JOB,"WP",J)=$PIECE($TEXT(UP55+J),";;",2)
+9 DO WP^DIE(915,"55,",10,,"^TMP($J,""WP"")","^TMP($J,""ERR"")")
+10 IF $DATA(^TMP($JOB,"ERR"))
Begin DoDot:2
+11 WRITE !!,"File #915, entry #55 - THEFT-GOVERNMENT PROPERTY"
+12 WRITE !," ...not updated."
+13 WRITE !," "_^TMP($JOB,"ERR","DIERR",1,"TEXT",1)
End DoDot:2
+14 IF '$DATA(^TMP($JOB,"ERR"))
Begin DoDot:2
+15 WRITE !!,"File #915, entry #55 - THEFT-GOVERNMENT PROPERTY"
+16 WRITE !," ...successfully updated."
End DoDot:2
End DoDot:1
+17 KILL ^TMP($JOB,"WP"),^TMP($JOB,"ERR")
+18 IF $PIECE($GET(^ESP(915,56,0)),U,1)'="THEFT-PERSONAL PROPERTY"
Begin DoDot:1
+19 WRITE !!,"File #915, entry #56"
+20 WRITE !," ...not updated."
+21 WRITE !," Field #.01'=THEFT-PERSONAL PROPERTY"
End DoDot:1
+22 IF $PIECE($GET(^ESP(915,56,0)),U,1)="THEFT-PERSONAL PROPERTY"
Begin DoDot:1
+23 FOR J=1:1:14
SET ^TMP($JOB,"WP",J)=$PIECE($TEXT(UP56+J),";;",2)
+24 DO WP^DIE(915,"56,",10,,"^TMP($J,""WP"")","^TMP($J,""ERR"")")
+25 IF $DATA(^TMP($JOB,"ERR"))
Begin DoDot:2
+26 WRITE !!,"File #915, entry #56 - THEFT-PERSONAL PROPERTY"
+27 WRITE !," ...not updated."
+28 WRITE !," "_^TMP($JOB,"ERR","DIERR",1,"TEXT",1)
End DoDot:2
+29 IF '$DATA(^TMP($JOB,"ERR"))
Begin DoDot:2
+30 WRITE !!,"File #915, entry #56 - THEFT-PERSONAL PROPERTY"
+31 WRITE !," ...successfully updated."
End DoDot:2
End DoDot:1
+32 KILL ^TMP($JOB,"WP"),^TMP($JOB,"ERR")
+33 QUIT
+34 ;
CONVERT ;convert file #912 data
+1 ;for any offense occurring after midnight 9-30-97;
+2 ;convert any subtype 24 or 26 automatically;
+3 ;convert any aubtype 23 or 25 only if it's the only subtype and the dollar amount
+4 ;of property loss is known;
+5 ;all other cases of subtype 23 or 25 require user intervention.
+6 NEW ESDTBEG,ESDTREC,ESIEN,ESSUBT,ESN,ESNN,ESMONEY,ESCNVDT,ESCREAT,ESPURGE,X1,X2
+7 DO NOW^%DTC
SET Y=$EXTRACT(%,1,12)
SET ESCNVDT=$$FMTE^XLFDT(Y,"5")
SET (ESCREAT,X1)=$PIECE(%,".",1)
SET X2=90
DO C^%DTC
SET ESPURGE=X
+8 ;create the zero node for the temp storage global
+9 SET ^XTMP("ESP",0)=ESPURGE_"^"_ESCREAT_"^temporary storage for ES*1*22"
+10 ;sort thru "C" xref; check field #.03
+11 SET (ESDTBEG,ESDTREC)=2970930.235959
+12 FOR
SET ESDTREC=$ORDER(^ESP(912,"C",ESDTREC))
if ESDTREC=""
QUIT
SET ESIEN=$ORDER(^(ESDTREC,0))
IF ESIEN
Begin DoDot:1
+13 if '$DATA(^ESP(912,ESIEN))
QUIT
if $PIECE(^ESP(912,ESIEN,0),"^",3)'>ESDTBEG
QUIT
+14 SET ESN=0
+15 FOR
SET ESN=$ORDER(^ESP(912,ESIEN,10,ESN))
if +ESN=0
QUIT
Begin DoDot:2
+16 SET ESMONEY=0
SET ESNN=0
FOR
SET ESNN=$ORDER(^ESP(912,ESIEN,90,ESNN))
if +ESNN=0
QUIT
SET ESMONEY=ESMONEY+$PIECE(^(ESNN,0),U,3)
+17 ;subtype=23,24,25,26 only
+18 SET ESSUBT=$PIECE(^ESP(912,ESIEN,10,ESN,0),U,3)
if (ESSUBT<23)!(ESSUBT>26)
QUIT
Begin DoDot:3
+19 ;automatically update any below $100 subtypes
+20 IF ESSUBT=24
SET $PIECE(^ESP(912,ESIEN,10,ESN,0),U,3)=40
SET ^XTMP("ESP","CONV",ESIEN,ESN)=ESSUBT_"^40^.5^"_ESCNVDT
QUIT
+21 IF ESSUBT=26
SET $PIECE(^ESP(912,ESIEN,10,ESN,0),U,3)=42
SET ^XTMP("ESP","CONV",ESIEN,ESN)=ESSUBT_"^42^.5^"_ESCNVDT
QUIT
+22 ;above $100 subtypes are still to be processed;
+23 ;if there is only one classification node and the property loss is known, then convert subtype
+24 IF ESN=1
IF +$ORDER(^ESP(912,ESIEN,10,ESN))=0
Begin DoDot:4
+25 IF ESMONEY>0
IF ESMONEY<1001
Begin DoDot:5
+26 IF ESSUBT=23
SET $PIECE(^ESP(912,ESIEN,10,ESN,0),U,3)=40
SET ^XTMP("ESP","CONV",ESIEN,ESN)=ESSUBT_"^40^.5^"_ESCNVDT
QUIT
+27 IF ESSUBT=25
SET $PIECE(^ESP(912,ESIEN,10,ESN,0),U,3)=42
SET ^XTMP("ESP","CONV",ESIEN,ESN)=ESSUBT_"^42^.5^"_ESCNVDT
QUIT
End DoDot:5
QUIT
+28 IF ESMONEY>1000
Begin DoDot:5
+29 IF ESSUBT=23
SET $PIECE(^ESP(912,ESIEN,10,ESN,0),U,3)=39
SET ^XTMP("ESP","CONV",ESIEN,ESN)=ESSUBT_"^39^.5^"_ESCNVDT
QUIT
+30 IF ESSUBT=25
SET $PIECE(^ESP(912,ESIEN,10,ESN,0),U,3)=41
SET ^XTMP("ESP","CONV",ESIEN,ESN)=ESSUBT_"^41^.5^"_ESCNVDT
QUIT
End DoDot:5
QUIT
+31 ;if still not processed, then this subtype conversion requires user intervention
+32 SET ^XTMP("ESP","USER",ESIEN,ESN)=ESSUBT_"^"_ESMONEY
End DoDot:4
QUIT
+33 ;if esn'=1 or esn=1 but multiple
+34 SET ^XTMP("ESP","USER",ESIEN,ESN)=ESSUBT_"^"_ESMONEY
End DoDot:3
End DoDot:2
End DoDot:1
+35 QUIT
+36 ;
NEWREC ;new file entries for file #912.9
+1 ;;39^ABOVE $1000 (GOV'T)^46^11
+2 ;;40^BELOW $1000 (GOV'T)^46^11
+3 ;;41^ABOVE $1000 (PERSONAL)^47^11
+4 ;;42^BELOW $1000 (PERSONAL)^47^11
+5 ;
UP55 ;update record #55 in file #915
+1 ;;Whoever embezzles, steals, purloins, or knowingly converts to his use
+2 ;;or the use of another, or without authority, sells, conveys or
+3 ;;disposes of any record, voucher, money, or thing of value of the
+4 ;;United States or of any department or agency thereof, or any property
+5 ;;made or being made under contract for the United States or any
+6 ;;department or agency thereof, or Whoever receives, conceals or retains
+7 ;;the same with intent to convert it to his use or gain, knowing it to
+8 ;;have been embezzled, stolen, purloined or converted---Shall be fined
+9 ;;not more than $10,000 or imprisoned not more than ten years, or both;
+10 ;;but if the value of such property does not exceed the sum of $1000, he
+11 ;;shall be fined not more than $1,000 or imprisoned not more than one
+12 ;;year, or both. The word "value" means face, par or market value, or
+13 ;;cost price, either wholesale or retail; whichever is greater.
+14 ;
UP56 ;update record #56 in file #915
+1 ;;Whoever, within the special maritime and territorial jurisdiction
+2 ;;of the United States, takes and carries away, with intent to steal
+3 ;;or purloin, any personal property of another, shall be punished as
+4 ;;follows: If the property taken is of a value exceeding $1000, or is
+5 ;;taken from the person of another, by a fine of not more than $5,000,
+6 ;;or imprisonment for not more than five years, or both; in all other
+7 ;;cases by a fine of not more than $1,000 or by imprisonment not
+8 ;;more than one year, or both. If the property stolen consists of any
+9 ;;evidence of debt, or other written instrument, the amount of money
+10 ;;due thereon, or secured to be paid thereby and remaining unsatisfied,
+11 ;;or which in any contingency might be collected thereon, or the value
+12 ;;of the property the title to which is shown thereby, or the sum
+13 ;;which might be recovered in the absence thereof, shall be the value
+14 ;;of the property stolen.
+15 ;
