ESPOFF2 ;DALISC/CKA - OFFENSE REPORT INPUT (CONT.);9/92
;;1.0;POLICE & SECURITY;**39**;Mar 31, 1994
EN ;Q;Requires ^TMP($J) be defined
;Continuation from ESPOFF1- stuffing data in Offense file
W ;STUFF WITNESS DATA
F ESPN=0:0 S ESPN=$O(^TMP($J,"UOR","W",ESPN)) Q:ESPN="" S ESPFN=^(ESPN) D
. S:'$D(^ESP(912,ESPOFN,50,0)) ^(0)="^912.06^^"
. K DD,DO S DIC="^ESP(912,"_ESPOFN_",50,",DIC(0)="L",DLAYGO=912,X=ESPN,DA(1)=ESPOFN D FILE^DICN
. S WIT0=$G(^ESP(910,ESPFN,0)),^ESP(912,ESPOFN,50,ESPN,0)=ESPN_"^"_ESPFN
. S ^ESP(912,ESPOFN,50,ESPN,1)=$G(^ESP(910,ESPFN,1)),^ESP(912,ESPOFN,50,ESPN,2)=$G(^ESP(910,ESPFN,2))
. S DIK="^ESP(912,"_ESPOFN_",50,",DA=ESPN D IX1^DIK K DIK,DA
MO ;STUFF METHOD OF OPERATION DATA
S %X="^TMP("_$J_",""MO"",",%Y="^ESP(912,"_ESPOFN_",60," D %XY^%RCR
NAR ;STUFF NARRATIVE DATA
;STUFF ORIGIN
S %X="^TMP("_$J_",""N1"",",%Y="^ESP(912,"_ESPOFN_",70," D %XY^%RCR
;STUFF INITIAL DISPOSITION
S %X="^TMP("_$J_",""N2"",",%Y="^ESP(912,"_ESPOFN_",72," D %XY^%RCR
;STUFF INVESTIGATION
S %X="^TMP("_$J_",""N3"",",%Y="^ESP(912,"_ESPOFN_",73," D %XY^%RCR
;STUFF DISPOSITION
S %X="^TMP("_$J_",""N4"",",%Y="^ESP(912,"_ESPOFN_",74," D %XY^%RCR
VEH ;STUFF VEHICLE DATA
F ESPN=0:0 S ESPN=$O(^TMP($J,"UOR","VE",ESPN)) Q:ESPN="" S VEH=^(ESPN) D
. S:'$D(^ESP(912,ESPOFN,80,0)) ^(0)="^912.09^^"
. K DD,DO S DIC="^ESP(912,"_ESPOFN_",80,",DIC(0)="L",DLAYGO=912,X=ESPN,DA(1)=ESPOFN D FILE^DICN
. S ^ESP(912,ESPOFN,80,ESPN,0)=^TMP($J,"UOR","VE",ESPN)
. ;X-REF
. S DIK="^ESP(912,"_ESPOFN_",80,",DA=ESPN D IX1^DIK K DIK,DA
LOST ;STUFF LOST PROPERTY DATA
S ESPX=""
F ESPN=1:1 S ESPX=$O(^TMP($J,"UOR","P",ESPX)) Q:ESPX="" S LOST=^(ESPX) D
. S:'$D(^ESP(912,ESPOFN,90,0)) ^(0)="^912.1^^"
. K DD,DO S DIC="^ESP(912,"_ESPOFN_",90,",DIC(0)="L",DLAYGO=912,X=ESPX,DA(1)=ESPOFN D FILE^DICN
. S ^ESP(912,ESPOFN,90,ESPN,0)=^TMP($J,"UOR","P",ESPX)
. ;X-REF
. S DIK="^ESP(912,"_ESPOFN_",90,",DA=ESPN D IX1^DIK K DIK,DA
HELD ;STUFF HELD PROPERTY DATA
F ESPN=0:0 S ESPN=$O(^TMP($J,"UOR","PH",ESPN)) Q:ESPN="" S HELD=^(ESPN) D
. S:'$D(^ESP(912,ESPOFN,100,0)) ^(0)="^912.02^^"
. K DD,DO S DIC="^ESP(912,"_ESPOFN_",100,",DIC(0)="L",DLAYGO=912,X=ESPN,DA(1)=ESPOFN
. S ^ESP(912,ESPOFN,100,ESPN,0)=^TMP($J,"UOR","PH",ESPN)
. ;STUFF DESCRIPTION
. S %X="^TMP("_$J_",""DE"","_ESPN_",",%Y="^ESP(912,"_ESPOFN_",100,"_ESPN_",10," D %XY^%RCR
. ;X-REF
. S DIK="^ESP(912,"_ESPOFN_",100,",DA=ESPN D IX1^DIK K DIK,DA
OTH ;STUFF OTHER AGENCY NOTIFICATION DATA
F ESPN=0:0 S ESPN=$O(^TMP($J,"UOR","OTH",ESPN)) Q:ESPN="" S OTH=^(ESPN) D
. S:'$D(^ESP(912,ESPOFN,110,0)) ^(0)="^912.14D^^"
. K DD,DO S DIC="^ESP(912,"_ESPOFN_",110,",DIC(0)="L",DLAYGO=912,X=ESPN,DA(1)=ESPOFN
. S ^ESP(912,ESPOFN,110,ESPN,0)=^TMP($J,"UOR","OTH",ESPN)
. ;X-REF
. S DIK="^ESP(912,"_ESPOFN_",110,",DA=ESPN D IX1^DIK K DIK,DA
ATY ;STUFF U.S. ATTORNEY NOTIFICATIONS DATA
F ESPN=0:0 S ESPN=$O(^TMP($J,"UOR","ATY",ESPN)) Q:ESPN="" S ATY=^(ESPN) D
. S:'$D(^ESP(912,ESPOFN,120,0)) ^(0)="^912.15D^^"
. K DD,DO S DIC="^ESP(912,"_ESPOFN_",120,",DIC(0)="L",DLAYGO=912,X=ESPN,DA(1)=ESPOFN
. S ^ESP(912,ESPOFN,120,ESPN,0)=^TMP($J,"UOR","ATY",ESPN)
. ;STUFF INSTRUCTIONS RECEIVED
. S %X="^TMP("_$J_",""INS"","_ESPN_",",%Y="^ESP(912,"_ESPOFN_",120,"_ESPN_",10," D %XY^%RCR
. ;X-REF
. S DIK="^ESP(912,"_ESPOFN_",120,",DA=ESPN D IX1^DIK K DIK,DA
N DC S DC=$P(UOR0,U,6),DIK="^ESP(912,",DA=ESPOFN D IX1^DIK K DIK,DA,DC
W !!,"Done."
L -^ESP(912,ESPOFN)
D CHECK^ESPOFF3
S ESPID=ESPOFN
EXIT K %X,%Y,ATY,CH,CHD,CL,COMP0,DA,DD,DIC,DIR,DIRUT,DIK,DO,DUOUT,ESPCL,ESPD,ESPFN,ESPI,ESPN,ESPNO,ESPNOT,ESPN1,ESPOFF,ESPS,ESPTEST,ESPX,ESPY,HELD,I,LOST,NOUPD,OFF,OFF0,OFF3,OTH,TMPN,UOR0,VEH,VIC0,WIT0,X,Y,^TMP($J)
D PRT^ESPOFFE
QUIT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HESPOFF2 3797 printed Nov 22, 2024@17:39:53 Page 2
ESPOFF2 ;DALISC/CKA - OFFENSE REPORT INPUT (CONT.);9/92
+1 ;;1.0;POLICE & SECURITY;**39**;Mar 31, 1994
EN ;Q;Requires ^TMP($J) be defined
+1 ;Continuation from ESPOFF1- stuffing data in Offense file
W ;STUFF WITNESS DATA
+1 FOR ESPN=0:0
SET ESPN=$ORDER(^TMP($JOB,"UOR","W",ESPN))
if ESPN=""
QUIT
SET ESPFN=^(ESPN)
Begin DoDot:1
+2 if '$DATA(^ESP(912,ESPOFN,50,0))
SET ^(0)="^912.06^^"
+3 KILL DD,DO
SET DIC="^ESP(912,"_ESPOFN_",50,"
SET DIC(0)="L"
SET DLAYGO=912
SET X=ESPN
SET DA(1)=ESPOFN
DO FILE^DICN
+4 SET WIT0=$GET(^ESP(910,ESPFN,0))
SET ^ESP(912,ESPOFN,50,ESPN,0)=ESPN_"^"_ESPFN
+5 SET ^ESP(912,ESPOFN,50,ESPN,1)=$GET(^ESP(910,ESPFN,1))
SET ^ESP(912,ESPOFN,50,ESPN,2)=$GET(^ESP(910,ESPFN,2))
+6 SET DIK="^ESP(912,"_ESPOFN_",50,"
SET DA=ESPN
DO IX1^DIK
KILL DIK,DA
End DoDot:1
MO ;STUFF METHOD OF OPERATION DATA
+1 SET %X="^TMP("_$JOB_",""MO"","
SET %Y="^ESP(912,"_ESPOFN_",60,"
DO %XY^%RCR
NAR ;STUFF NARRATIVE DATA
+1 ;STUFF ORIGIN
+2 SET %X="^TMP("_$JOB_",""N1"","
SET %Y="^ESP(912,"_ESPOFN_",70,"
DO %XY^%RCR
+3 ;STUFF INITIAL DISPOSITION
+4 SET %X="^TMP("_$JOB_",""N2"","
SET %Y="^ESP(912,"_ESPOFN_",72,"
DO %XY^%RCR
+5 ;STUFF INVESTIGATION
+6 SET %X="^TMP("_$JOB_",""N3"","
SET %Y="^ESP(912,"_ESPOFN_",73,"
DO %XY^%RCR
+7 ;STUFF DISPOSITION
+8 SET %X="^TMP("_$JOB_",""N4"","
SET %Y="^ESP(912,"_ESPOFN_",74,"
DO %XY^%RCR
VEH ;STUFF VEHICLE DATA
+1 FOR ESPN=0:0
SET ESPN=$ORDER(^TMP($JOB,"UOR","VE",ESPN))
if ESPN=""
QUIT
SET VEH=^(ESPN)
Begin DoDot:1
+2 if '$DATA(^ESP(912,ESPOFN,80,0))
SET ^(0)="^912.09^^"
+3 KILL DD,DO
SET DIC="^ESP(912,"_ESPOFN_",80,"
SET DIC(0)="L"
SET DLAYGO=912
SET X=ESPN
SET DA(1)=ESPOFN
DO FILE^DICN
+4 SET ^ESP(912,ESPOFN,80,ESPN,0)=^TMP($JOB,"UOR","VE",ESPN)
+5 ;X-REF
+6 SET DIK="^ESP(912,"_ESPOFN_",80,"
SET DA=ESPN
DO IX1^DIK
KILL DIK,DA
End DoDot:1
LOST ;STUFF LOST PROPERTY DATA
+1 SET ESPX=""
+2 FOR ESPN=1:1
SET ESPX=$ORDER(^TMP($JOB,"UOR","P",ESPX))
if ESPX=""
QUIT
SET LOST=^(ESPX)
Begin DoDot:1
+3 if '$DATA(^ESP(912,ESPOFN,90,0))
SET ^(0)="^912.1^^"
+4 KILL DD,DO
SET DIC="^ESP(912,"_ESPOFN_",90,"
SET DIC(0)="L"
SET DLAYGO=912
SET X=ESPX
SET DA(1)=ESPOFN
DO FILE^DICN
+5 SET ^ESP(912,ESPOFN,90,ESPN,0)=^TMP($JOB,"UOR","P",ESPX)
+6 ;X-REF
+7 SET DIK="^ESP(912,"_ESPOFN_",90,"
SET DA=ESPN
DO IX1^DIK
KILL DIK,DA
End DoDot:1
HELD ;STUFF HELD PROPERTY DATA
+1 FOR ESPN=0:0
SET ESPN=$ORDER(^TMP($JOB,"UOR","PH",ESPN))
if ESPN=""
QUIT
SET HELD=^(ESPN)
Begin DoDot:1
+2 if '$DATA(^ESP(912,ESPOFN,100,0))
SET ^(0)="^912.02^^"
+3 KILL DD,DO
SET DIC="^ESP(912,"_ESPOFN_",100,"
SET DIC(0)="L"
SET DLAYGO=912
SET X=ESPN
SET DA(1)=ESPOFN
+4 SET ^ESP(912,ESPOFN,100,ESPN,0)=^TMP($JOB,"UOR","PH",ESPN)
+5 ;STUFF DESCRIPTION
+6 SET %X="^TMP("_$JOB_",""DE"","_ESPN_","
SET %Y="^ESP(912,"_ESPOFN_",100,"_ESPN_",10,"
DO %XY^%RCR
+7 ;X-REF
+8 SET DIK="^ESP(912,"_ESPOFN_",100,"
SET DA=ESPN
DO IX1^DIK
KILL DIK,DA
End DoDot:1
OTH ;STUFF OTHER AGENCY NOTIFICATION DATA
+1 FOR ESPN=0:0
SET ESPN=$ORDER(^TMP($JOB,"UOR","OTH",ESPN))
if ESPN=""
QUIT
SET OTH=^(ESPN)
Begin DoDot:1
+2 if '$DATA(^ESP(912,ESPOFN,110,0))
SET ^(0)="^912.14D^^"
+3 KILL DD,DO
SET DIC="^ESP(912,"_ESPOFN_",110,"
SET DIC(0)="L"
SET DLAYGO=912
SET X=ESPN
SET DA(1)=ESPOFN
+4 SET ^ESP(912,ESPOFN,110,ESPN,0)=^TMP($JOB,"UOR","OTH",ESPN)
+5 ;X-REF
+6 SET DIK="^ESP(912,"_ESPOFN_",110,"
SET DA=ESPN
DO IX1^DIK
KILL DIK,DA
End DoDot:1
ATY ;STUFF U.S. ATTORNEY NOTIFICATIONS DATA
+1 FOR ESPN=0:0
SET ESPN=$ORDER(^TMP($JOB,"UOR","ATY",ESPN))
if ESPN=""
QUIT
SET ATY=^(ESPN)
Begin DoDot:1
+2 if '$DATA(^ESP(912,ESPOFN,120,0))
SET ^(0)="^912.15D^^"
+3 KILL DD,DO
SET DIC="^ESP(912,"_ESPOFN_",120,"
SET DIC(0)="L"
SET DLAYGO=912
SET X=ESPN
SET DA(1)=ESPOFN
+4 SET ^ESP(912,ESPOFN,120,ESPN,0)=^TMP($JOB,"UOR","ATY",ESPN)
+5 ;STUFF INSTRUCTIONS RECEIVED
+6 SET %X="^TMP("_$JOB_",""INS"","_ESPN_","
SET %Y="^ESP(912,"_ESPOFN_",120,"_ESPN_",10,"
DO %XY^%RCR
+7 ;X-REF
+8 SET DIK="^ESP(912,"_ESPOFN_",120,"
SET DA=ESPN
DO IX1^DIK
KILL DIK,DA
End DoDot:1
+9 NEW DC
SET DC=$PIECE(UOR0,U,6)
SET DIK="^ESP(912,"
SET DA=ESPOFN
DO IX1^DIK
KILL DIK,DA,DC
+10 WRITE !!,"Done."
+11 LOCK -^ESP(912,ESPOFN)
+12 DO CHECK^ESPOFF3
+13 SET ESPID=ESPOFN
EXIT KILL %X,%Y,ATY,CH,CHD,CL,COMP0,DA,DD,DIC,DIR,DIRUT,DIK,DO,DUOUT,ESPCL,ESPD,ESPFN,ESPI,ESPN,ESPNO,ESPNOT,ESPN1,ESPOFF,ESPS,ESPTEST,ESPX,ESPY,HELD,I,LOST,NOUPD,OFF,OFF0,OFF3,OTH,TMPN,UOR0,VEH,VIC0,WIT0,X,Y,^TMP($JOB)
+1 DO PRT^ESPOFFE
+2 QUIT
