- ESPORP3 ;DALISC/CKA - PRINT OFFENSE REPORT CONT. ;10/92
- ;;1.0;POLICE & SECURITY;**6,10,17**;Mar 31, 1994
- EN ;CONTINUED FROM ESPORP2
- WIT ;PRINT WITNESSES
- G:'$D(^ESP(912,ESPID,50)) VEH
- F ESPN=0:0 S ESPN=$O(^ESP(912,ESPID,50,ESPN)) Q:ESPN'>0!(END) D
- . S DIC="^ESP(912,"_ESPID_",50,",DA=ESPN,DR=".02;1.01:1.06;2.01:2.06",DIQ(0)="E" D EN^DIQ1 Q:'$D(^UTILITY("DIQ1",$J,912.06,DA))
- . D MIN^ESPORP(10) Q:END
- . D LINES^ESPORP(2) Q:END F I=1:1:16 W "* "
- . W "WITNESS DATA" F I=1:1:17 W " *"
- . D LINES^ESPORP(2) Q:END W "WITNESS NAME: ",$G(^UTILITY("DIQ1",$J,912.06,DA,.02,"E"))
- . D LINES^ESPORP() Q:END W "HOME ADDRESS: ",$G(^UTILITY("DIQ1",$J,912.06,DA,1.01,"E"))
- . I $G(^UTILITY("DIQ1",$J,912.06,DA,1.02,"E"))]"" D LINES^ESPORP() Q:END W ?14,$G(^UTILITY("DIQ1",$J,912.06,DA,1.02,"E"))
- . I $G(^UTILITY("DIQ1",$J,912.06,DA,1.03,"E"))]"" D LINES^ESPORP() Q:END W ?14,$G(^UTILITY("DIQ1",$J,912.06,DA,1.03,"E")),","
- . W $G(^UTILITY("DIQ1",$J,912.06,DA,1.04,"E"))," ",$G(^UTILITY("DIQ1",$J,912.06,DA,1.05,"E"))
- . D LINES^ESPORP() Q:END W "HOME PHONE: ",$G(^UTILITY("DIQ1",$J,912.06,DA,1.06,"E"))
- . D LINES^ESPORP() Q:END W "WORK ADDRESS: ",$G(^UTILITY("DIQ1",$J,912.06,DA,2.01,"E"))
- . I $G(^UTILITY("DIQ1",$J,912.06,DA,2.02,"E"))]"" D LINES^ESPORP() Q:END W ?14,$G(^UTILITY("DIQ1",$J,912.06,DA,2.02,"E"))
- . I $G(^UTILITY("DIQ1",$J,912.06,DA,2.03,"E"))]"" D LINES^ESPORP() Q:END W ?14,$G(^UTILITY("DIQ1",$J,912.06,DA,2.03,"E")),","
- . W $G(^UTILITY("DIQ1",$J,912.06,DA,2.04,"E"))," ",$G(^UTILITY("DIQ1",$J,912.06,DA,2.05,"E"))
- . D LINES^ESPORP() Q:END W "WORK PHONE: ",$G(^UTILITY("DIQ1",$J,912.06,DA,2.06,"E"))
- ;
- VEH ;PRINT VEHICLE(S)
- G:'$D(^ESP(912,ESPID,80)) LOST
- F ESPN=0:0 S ESPN=$O(^ESP(912,ESPID,80,ESPN)) Q:ESPN'>0!(END) D
- . S DIC="^ESP(912,"_ESPID_",80,",DA=ESPN,DR=".02:.11",DIQ(0)="E" D EN^DIQ1 Q:'$D(^UTILITY("DIQ1",$J,912.09,DA))
- . D MIN^ESPORP(10) Q:END
- . D LINES^ESPORP(2) Q:END F I=1:1:15 W "* "
- . W "VEHICLE INFORMATION" F I=1:1:15 W " *"
- . D LINES^ESPORP(2) Q:END W "LICENSE TAG # & STATE: ",$G(^UTILITY("DIQ1",$J,912.09,DA,.02,"E"))," ",$G(^UTILITY("DIQ1",$J,912.09,DA,.03,"E"))
- . D LINES^ESPORP() Q:END W "MAKE: ",$G(^UTILITY("DIQ1",$J,912.09,DA,.04,"E"))
- . W ?35,"MODEL: ",$G(^UTILITY("DIQ1",$J,912.09,DA,.05,"E"))
- . D LINES^ESPORP() Q:END W "STYLE: ",$G(^UTILITY("DIQ1",$J,912.09,DA,.06,"E"))
- . D LINES^ESPORP() Q:END W "COLOR: ",$G(^UTILITY("DIQ1",$J,912.09,DA,.07,"E"))
- . D LINES^ESPORP() Q:END W "DECAL # & COLOR: ",$G(^UTILITY("DIQ1",$J,912.09,DA,.08,"E"))," " W:$G(^UTILITY("DIQ1",$J,912.09,DA,.09,"E"))'=0 ^("E")
- . D LINES^ESPORP() Q:END W "YEAR OF MANUFACTURE: ",$G(^UTILITY("DIQ1",$J,912.09,DA,.1,"E"))
- . D LINES^ESPORP() Q:END W "OWNER NAME: ",$G(^UTILITY("DIQ1",$J,912.09,DA,.11,"E"))
- LOST ;PRINT LOST PROPERTY
- G:END EXIT
- G:'$D(^ESP(912,ESPID,90)) CONT
- F ESPN=0:0 S ESPN=$O(^ESP(912,ESPID,90,ESPN)) Q:ESPN'>0!(END) D
- . S DIC="^ESP(912,"_ESPID_",90,",DA=ESPN,DR=".01:.04",DIQ(0)="E" D EN^DIQ1 Q:'$D(^UTILITY("DIQ1",$J,912.1,DA))
- . D MIN^ESPORP(10) Q:END
- . D LINES^ESPORP(2) Q:END F I=1:1:15 W "* "
- . W "LOST/STOLEN PROPERTY" F I=1:1:14 W " *"
- . D LINES^ESPORP(2) Q:END W "ITEM NAME: ",$G(^UTILITY("DIQ1",$J,912.1,DA,.01,"E"))
- . D LINES^ESPORP() Q:END W "DESCRIPTION: ",$G(^UTILITY("DIQ1",$J,912.1,DA,.02,"E"))
- . D LINES^ESPORP() Q:END W "DOLLAR LOSS: ",$G(^UTILITY("DIQ1",$J,912.1,DA,.03,"E"))
- . D LINES^ESPORP() Q:END W "DOLLAR RECOVERED: ",$G(^UTILITY("DIQ1",$J,912.1,DA,.04,"E"))
- CONT G ^ESPORP4
- EXIT K CL,DA,DIC,DIQ,DIR,DIRUT,DIWF,DIWL,DIWR,ESPDOB,ESPDOBP,DR,DTOUT,DUOUT,END,ESPDTR,ESPID,ESPFN,ESPN,ESPN1,IEN,PAGE,SSN,X,Y
- K ^UTILITY("DIQ1",$J)
- QUIT
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HESPORP3 3730 printed Feb 18, 2025@23:56:41 Page 2
- ESPORP3 ;DALISC/CKA - PRINT OFFENSE REPORT CONT. ;10/92
- +1 ;;1.0;POLICE & SECURITY;**6,10,17**;Mar 31, 1994
- EN ;CONTINUED FROM ESPORP2
- WIT ;PRINT WITNESSES
- +1 if '$DATA(^ESP(912,ESPID,50))
- GOTO VEH
- +2 FOR ESPN=0:0
- SET ESPN=$ORDER(^ESP(912,ESPID,50,ESPN))
- if ESPN'>0!(END)
- QUIT
- Begin DoDot:1
- +3 SET DIC="^ESP(912,"_ESPID_",50,"
- SET DA=ESPN
- SET DR=".02;1.01:1.06;2.01:2.06"
- SET DIQ(0)="E"
- DO EN^DIQ1
- if '$DATA(^UTILITY("DIQ1",$JOB,912.06,DA))
- QUIT
- +4 DO MIN^ESPORP(10)
- if END
- QUIT
- +5 DO LINES^ESPORP(2)
- if END
- QUIT
- FOR I=1:1:16
- WRITE "* "
- +6 WRITE "WITNESS DATA"
- FOR I=1:1:17
- WRITE " *"
- +7 DO LINES^ESPORP(2)
- if END
- QUIT
- WRITE "WITNESS NAME: ",$GET(^UTILITY("DIQ1",$JOB,912.06,DA,.02,"E"))
- +8 DO LINES^ESPORP()
- if END
- QUIT
- WRITE "HOME ADDRESS: ",$GET(^UTILITY("DIQ1",$JOB,912.06,DA,1.01,"E"))
- +9 IF $GET(^UTILITY("DIQ1",$JOB,912.06,DA,1.02,"E"))]""
- DO LINES^ESPORP()
- if END
- QUIT
- WRITE ?14,$GET(^UTILITY("DIQ1",$JOB,912.06,DA,1.02,"E"))
- +10 IF $GET(^UTILITY("DIQ1",$JOB,912.06,DA,1.03,"E"))]""
- DO LINES^ESPORP()
- if END
- QUIT
- WRITE ?14,$GET(^UTILITY("DIQ1",$JOB,912.06,DA,1.03,"E")),","
- +11 WRITE $GET(^UTILITY("DIQ1",$JOB,912.06,DA,1.04,"E"))," ",$GET(^UTILITY("DIQ1",$JOB,912.06,DA,1.05,"E"))
- +12 DO LINES^ESPORP()
- if END
- QUIT
- WRITE "HOME PHONE: ",$GET(^UTILITY("DIQ1",$JOB,912.06,DA,1.06,"E"))
- +13 DO LINES^ESPORP()
- if END
- QUIT
- WRITE "WORK ADDRESS: ",$GET(^UTILITY("DIQ1",$JOB,912.06,DA,2.01,"E"))
- +14 IF $GET(^UTILITY("DIQ1",$JOB,912.06,DA,2.02,"E"))]""
- DO LINES^ESPORP()
- if END
- QUIT
- WRITE ?14,$GET(^UTILITY("DIQ1",$JOB,912.06,DA,2.02,"E"))
- +15 IF $GET(^UTILITY("DIQ1",$JOB,912.06,DA,2.03,"E"))]""
- DO LINES^ESPORP()
- if END
- QUIT
- WRITE ?14,$GET(^UTILITY("DIQ1",$JOB,912.06,DA,2.03,"E")),","
- +16 WRITE $GET(^UTILITY("DIQ1",$JOB,912.06,DA,2.04,"E"))," ",$GET(^UTILITY("DIQ1",$JOB,912.06,DA,2.05,"E"))
- +17 DO LINES^ESPORP()
- if END
- QUIT
- WRITE "WORK PHONE: ",$GET(^UTILITY("DIQ1",$JOB,912.06,DA,2.06,"E"))
- End DoDot:1
- +18 ;
- VEH ;PRINT VEHICLE(S)
- +1 if '$DATA(^ESP(912,ESPID,80))
- GOTO LOST
- +2 FOR ESPN=0:0
- SET ESPN=$ORDER(^ESP(912,ESPID,80,ESPN))
- if ESPN'>0!(END)
- QUIT
- Begin DoDot:1
- +3 SET DIC="^ESP(912,"_ESPID_",80,"
- SET DA=ESPN
- SET DR=".02:.11"
- SET DIQ(0)="E"
- DO EN^DIQ1
- if '$DATA(^UTILITY("DIQ1",$JOB,912.09,DA))
- QUIT
- +4 DO MIN^ESPORP(10)
- if END
- QUIT
- +5 DO LINES^ESPORP(2)
- if END
- QUIT
- FOR I=1:1:15
- WRITE "* "
- +6 WRITE "VEHICLE INFORMATION"
- FOR I=1:1:15
- WRITE " *"
- +7 DO LINES^ESPORP(2)
- if END
- QUIT
- WRITE "LICENSE TAG # & STATE: ",$GET(^UTILITY("DIQ1",$JOB,912.09,DA,.02,"E"))," ",$GET(^UTILITY("DIQ1",$JOB,912.09,DA,.03,"E"))
- +8 DO LINES^ESPORP()
- if END
- QUIT
- WRITE "MAKE: ",$GET(^UTILITY("DIQ1",$JOB,912.09,DA,.04,"E"))
- +9 WRITE ?35,"MODEL: ",$GET(^UTILITY("DIQ1",$JOB,912.09,DA,.05,"E"))
- +10 DO LINES^ESPORP()
- if END
- QUIT
- WRITE "STYLE: ",$GET(^UTILITY("DIQ1",$JOB,912.09,DA,.06,"E"))
- +11 DO LINES^ESPORP()
- if END
- QUIT
- WRITE "COLOR: ",$GET(^UTILITY("DIQ1",$JOB,912.09,DA,.07,"E"))
- +12 DO LINES^ESPORP()
- if END
- QUIT
- WRITE "DECAL # & COLOR: ",$GET(^UTILITY("DIQ1",$JOB,912.09,DA,.08,"E"))," "
- if $GET(^UTILITY("DIQ1",$JOB,912.09,DA,.09,"E"))'=0
- WRITE ^("E")
- +13 DO LINES^ESPORP()
- if END
- QUIT
- WRITE "YEAR OF MANUFACTURE: ",$GET(^UTILITY("DIQ1",$JOB,912.09,DA,.1,"E"))
- +14 DO LINES^ESPORP()
- if END
- QUIT
- WRITE "OWNER NAME: ",$GET(^UTILITY("DIQ1",$JOB,912.09,DA,.11,"E"))
- End DoDot:1
- LOST ;PRINT LOST PROPERTY
- +1 if END
- GOTO EXIT
- +2 if '$DATA(^ESP(912,ESPID,90))
- GOTO CONT
- +3 FOR ESPN=0:0
- SET ESPN=$ORDER(^ESP(912,ESPID,90,ESPN))
- if ESPN'>0!(END)
- QUIT
- Begin DoDot:1
- +4 SET DIC="^ESP(912,"_ESPID_",90,"
- SET DA=ESPN
- SET DR=".01:.04"
- SET DIQ(0)="E"
- DO EN^DIQ1
- if '$DATA(^UTILITY("DIQ1",$JOB,912.1,DA))
- QUIT
- +5 DO MIN^ESPORP(10)
- if END
- QUIT
- +6 DO LINES^ESPORP(2)
- if END
- QUIT
- FOR I=1:1:15
- WRITE "* "
- +7 WRITE "LOST/STOLEN PROPERTY"
- FOR I=1:1:14
- WRITE " *"
- +8 DO LINES^ESPORP(2)
- if END
- QUIT
- WRITE "ITEM NAME: ",$GET(^UTILITY("DIQ1",$JOB,912.1,DA,.01,"E"))
- +9 DO LINES^ESPORP()
- if END
- QUIT
- WRITE "DESCRIPTION: ",$GET(^UTILITY("DIQ1",$JOB,912.1,DA,.02,"E"))
- +10 DO LINES^ESPORP()
- if END
- QUIT
- WRITE "DOLLAR LOSS: ",$GET(^UTILITY("DIQ1",$JOB,912.1,DA,.03,"E"))
- +11 DO LINES^ESPORP()
- if END
- QUIT
- WRITE "DOLLAR RECOVERED: ",$GET(^UTILITY("DIQ1",$JOB,912.1,DA,.04,"E"))
- End DoDot:1
- CONT GOTO ^ESPORP4
- EXIT KILL CL,DA,DIC,DIQ,DIR,DIRUT,DIWF,DIWL,DIWR,ESPDOB,ESPDOBP,DR,DTOUT,DUOUT,END,ESPDTR,ESPID,ESPFN,ESPN,ESPN1,IEN,PAGE,SSN,X,Y
- +1 KILL ^UTILITY("DIQ1",$JOB)
- +2 QUIT
