- 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 Mar 13, 2025@21:34: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
