Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ESPDISP

ESPDISP.m

Go to the documentation of this file.
  1. ESPDISP ;DALISC/CKA - DISPLAYS DATA OFFENSE REPORT EDIT;8/92
  1. ;;1.0;POLICE & SECURITY;;Mar 31, 1994
  1. EN ;
  1. COM ;DISPLAY COMPLAINANTS
  1. Q:'$D(DA) W !!,"COMPLAINANT DATA",! S NUM=0,ESPID=DA
  1. F ESPN=0:0 S NUM=$O(^ESP(912,ESPID,20,NUM)) Q:NUM'>0 D
  1. . S ESPFN=$P(^ESP(912,ESPID,20,NUM,0),U,2),ESPNAM="" S:ESPFN]"" ESPNAM=$P($G(^ESP(910,ESPFN,0)),U)
  1. . W !?5,NUM," ",ESPNAM
  1. I '$D(ESPDO) S NUM=$P($G(^ESP(912,ESPID,20,0)),U,3) D NUM
  1. K ESPDO,ESPFN,ESPN,ESPNAM,NUM,Y
  1. QUIT
  1. STUFF1 ;STUFF COMPLAINANT INFO
  1. S ESPFN=$P(^ESP(912,DA(1),20,DA,0),U,2),COMP0=^ESP(910,ESPFN,0),$P(^ESP(912,DA(1),20,DA,0),U,3)=$P(COMP0,U,4)
  1. S ^ESP(912,DA(1),20,DA,1)=$G(^ESP(910,ESPFN,1)),^ESP(912,DA(1),20,DA,2)=$G(^ESP(910,ESPFN,2))
  1. K COMP0,ESPFN
  1. Q
  1. ;
  1. VIC ;DISPLAY VICTIMS
  1. Q:'$D(DA) W !!,"VICTIM DATA",! S NUM=0,ESPID=DA
  1. F ESPN=0:0 S NUM=$O(^ESP(912,ESPID,30,NUM)) Q:NUM'>0 D
  1. . S ESPFN=$P(^ESP(912,ESPID,30,NUM,0),U,2),ESPNAM="" S:ESPFN]"" ESPNAM=$P($G(^ESP(910,+ESPFN,0)),U)
  1. . W !?5,NUM," ",ESPNAM
  1. I '$D(ESPDO) S NUM=$P($G(^ESP(912,ESPID,30,0)),U,3) D NUM
  1. K ESPDO,ESPFN,ESPN,ESPNAM,NUM,Y
  1. QUIT
  1. STUFF2 ;STUFF VICTIM INFO
  1. S ESPFN=$P(^ESP(912,DA(1),30,DA,0),U,2),VIC0=^ESP(910,ESPFN,0)
  1. S $P(^ESP(912,DA(1),30,DA,0),U,3,7)=$P(VIC0,U,8,9)_"^"_$P(VIC0,U,4)_"^"_$P(VIC0,U,10,11)
  1. S ^ESP(912,DA(1),30,DA,1)=$G(^ESP(910,ESPFN,1)),^ESP(912,DA(1),30,DA,2)=$G(^ESP(910,ESPFN,2))
  1. K VIC0,ESPFN
  1. Q
  1. OFF ;DISPLAY OFFENDERS
  1. Q:'$D(DA) W !!,"OFFENDER DATA",! S NUM=0,ESPID=DA
  1. F ESPN=0:0 S NUM=$O(^ESP(912,ESPID,40,NUM)) Q:NUM'>0 D
  1. . S ESPFN=$P(^ESP(912,ESPID,40,NUM,0),U,2) S:ESPFN'="" ESPNAM(NUM)=$P($G(^ESP(910,ESPFN,0)),U) S:ESPFN="" ESPNAM(NUM)="UNKNOWN"
  1. . W !?5,NUM," ",ESPNAM(NUM)
  1. I '$D(ESPDO) S NUM=$P($G(^ESP(912,ESPID,40,0)),U,3) D NUM
  1. K ESPDO,ESPFN,ESPN,NUM,Y
  1. QUIT
  1. STUFF3 ;STUFF OFFENDER INFO
  1. S ESPFN=$P(^ESP(912,DA(1),40,DA,0),U,2),OFF0=^ESP(910,ESPFN,0)
  1. S $P(^ESP(912,DA(1),40,DA,0),U,3,4)=$P(OFF0,U,8,9),ESPDESCR=$G(^ESP(910,ESPFN,3)),$P(^ESP(912,DA(1),40,DA,0),U,5,10)=ESPDESCR
  1. S $P(^ESP(912,DA(1),40,DA,0),U,11)=$P(OFF0,U,4),$P(^ESP(912,DA(1),40,DA,0),U,12,13)=$P(OFF0,U,10,11)
  1. S ^ESP(912,DA(1),40,DA,1)=$G(^ESP(910,ESPFN,1)),^ESP(912,DA(1),40,DA,2)=$G(^ESP(910,ESPFN,2))
  1. K ESPDESCR,OFF0,ESPFN
  1. Q
  1. WIT ;DISPLAY WITNESSES
  1. Q:'$D(DA) W !!,"WITNESS DATA",! S NUM=0,ESPID=DA
  1. F ESPN=0:0 S NUM=$O(^ESP(912,ESPID,50,NUM)) Q:NUM'>0 D
  1. . S ESPFN=$P(^ESP(912,ESPID,50,NUM,0),U,2),ESPNAM="" S:ESPFN]"" ESPNAM=$P($G(^ESP(910,+ESPFN,0)),U)
  1. . W !?5,NUM," ",ESPNAM
  1. I '$D(ESPDO) S NUM=$P($G(^ESP(912,ESPID,50,0)),U,3) D NUM
  1. K ESPDO,ESPFN,ESPN,ESPNAM,NUM,Y
  1. QUIT
  1. STUFF4 ;STUFF WITNESS INFO
  1. S ESPFN=$P(^ESP(912,DA(1),50,DA,0),U,2),WIT0=^ESP(910,ESPFN,0),$P(^ESP(912,DA(1),50,DA,0),U,3)=$P(WIT0,U,4)
  1. S ^ESP(912,DA(1),50,DA,1)=$G(^ESP(910,ESPFN,1)),^ESP(912,DA(1),50,DA,2)=$G(^ESP(910,ESPFN,2))
  1. K WIT0,ESPFN
  1. Q
  1. VEH ;DISPLAY VEHICLES
  1. S NUM=0,ESPID=DA
  1. F ESPN=0:0 S NUM=$O(^ESP(912,ESPID,80,NUM)) Q:NUM'>0 D
  1. . W !?5,NUM," ",$P($G(^ESP(912,ESPID,80,NUM,0)),U,2)," ",$P($G(^DIC(5,+$P($G(^(0)),U,3),0)),U,2)
  1. K ESPN,NUM
  1. QUIT
  1. LOST ;DISPLAY LOST PROPERTY
  1. S NUM=0,ESPID=DA
  1. F ESPN=0:0 S NUM=$O(^ESP(912,ESPID,90,NUM)) Q:NUM'>0 D
  1. . W !?5,NUM," ",$P($G(^ESP(912,ESPID,90,NUM,0)),U)," "
  1. K ESPN,NUM
  1. QUIT
  1. HELD ;DISPLAY PROPERTY (HELD)
  1. S NUM=0,ESPID=DA
  1. F ESPN=0:0 S NUM=$O(^ESP(912,ESPID,100,NUM)) Q:NUM'>0 D
  1. . W !?5,NUM," ",$P($G(^ESP(912,ESPID,100,NUM,0)),U,2)," ",$P($G(^(0)),U,3)
  1. K ESPN,NUM
  1. QUIT
  1. OTH ;DISPLAY OTHER AGENCIES NOTIFICATIONS
  1. S NUM=0,ESPID=DA
  1. F ESPN=0:0 S NUM=$O(^ESP(912,ESPID,110,NUM)) Q:NUM'>0 D
  1. . W !?5,NUM," " S Y=$P($G(^ESP(912,ESPID,110,NUM,0)),U) X ^DD("DD") W Y
  1. K ESPN,NUM,Y
  1. QUIT
  1. ATTY ;DISPLAY U.S ATTORNEY NOTIFICATIONS
  1. S NUM=0,ESPID=DA
  1. F ESPN=0:0 S NUM=$O(^ESP(912,ESPID,120,NUM)) Q:NUM'>0 D
  1. . W !?5,NUM," " S Y=$P($G(^ESP(912,ESPID,120,NUM,0)),U) X ^DD("DD") W Y
  1. K ESPN,NUM,Y
  1. QUIT
  1. NUM S NEWNUM=NUM+1,DIR("A")="Enter "_NEWNUM_" to add a new entry",DIR(0)="N^"_NEWNUM_":"_NEWNUM_":0^",DIR("??")="^W !?5,""Enter "_NEWNUM_" to add a new entry."""
  1. D ^DIR K:$D(DIRUT) X K DIR,ESPNAM(NEWNUM),NEWNUM
  1. QUIT
  1. UNKN ;Ask if unknown if offender
  1. S DIR(0)="Y",DIR("A")="Is this an unknown offender",DIR("B")="NO"
  1. D ^DIR K DIR
  1. I 'Y S ESPNAM(DA)="",Y=.02 QUIT
  1. I Y S ESPNAM(DA)="UNKNOWN",Y=.03
  1. QUIT