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

ESPORP1.m

Go to the documentation of this file.
  1. ESPORP1 ;DALISC/CKA - PRINT OFFENSE REPORT CONT. ;10/92
  1. ;;1.0;POLICE & SECURITY;**14,17**;Mar 31, 1994
  1. EN ;
  1. COMP ;PRINT COMPLAINANTS
  1. F ESPN=0:0 S ESPN=$O(^ESP(912,ESPID,20,ESPN)) Q:ESPN'>0 D G EXIT:END
  1. . S DIC="^ESP(912,"_ESPID_",20,",DA=ESPN,DR=".02;.03;1.01:1.06;2.01:2.06",DIQ(0)="E" D EN^DIQ1 Q:'$D(^UTILITY("DIQ1",$J,912.03,DA))
  1. . D LINES^ESPORP(2) Q:END
  1. . F I=1:1:16 W "* "
  1. . W "COMPLAINANT DATA" F I=1:1:15 W " *"
  1. . D LINES^ESPORP(2) Q:END
  1. . W "COMPLAINANT NAME: ",$G(^UTILITY("DIQ1",$J,912.03,DA,.02,"E"))
  1. . D LINES^ESPORP() Q:END
  1. . W "STATUS: ",$G(^UTILITY("DIQ1",$J,912.03,DA,.03,"E"))
  1. . D LINES^ESPORP() Q:END
  1. . W "HOME ADDRESS: ",$G(^UTILITY("DIQ1",$J,912.03,DA,1.01,"E"))
  1. . I $G(^UTILITY("DIQ1",$J,912.03,DA,1.02,"E"))]"" D LINES^ESPORP() Q:END W ?14,$G(^UTILITY("DIQ1",$J,912.03,DA,1.02,"E"))
  1. . I $G(^UTILITY("DIQ1",$J,912.03,DA,1.03,"E"))]"" D LINES^ESPORP() Q:END W ?14,$G(^UTILITY("DIQ1",$J,912.03,DA,1.03,"E")),","
  1. . W $G(^UTILITY("DIQ1",$J,912.03,DA,1.04,"E"))," ",$G(^UTILITY("DIQ1",$J,912.03,DA,1.05,"E"))
  1. . D LINES^ESPORP() Q:END
  1. . W "HOME PHONE: ",$G(^UTILITY("DIQ1",$J,912.03,DA,1.06,"E"))
  1. . D LINES^ESPORP() Q:END
  1. . W "WORK ADDRESS: ",$G(^UTILITY("DIQ1",$J,912.03,DA,2.01,"E"))
  1. . I $G(^UTILITY("DIQ1",$J,912.03,DA,2.02,"E"))]"" D LINES^ESPORP() Q:END W ?14,$G(^UTILITY("DIQ1",$J,912.03,DA,2.02,"E"))
  1. . I $G(^UTILITY("DIQ1",$J,912.03,DA,2.03,"E"))]"" D LINES^ESPORP() Q:END W ?14,$G(^UTILITY("DIQ1",$J,912.03,DA,2.03,"E")),","
  1. . W $G(^UTILITY("DIQ1",$J,912.03,DA,2.04,"E"))," ",$G(^UTILITY("DIQ1",$J,912.03,DA,2.05,"E"))
  1. . D LINES^ESPORP() Q:END
  1. . W "WORK PHONE: ",$G(^UTILITY("DIQ1",$J,912.03,DA,2.06,"E"))
  1. VIC ;PRINT VICTIMS
  1. G:'$D(^ESP(912,ESPID,30)) CONT
  1. F ESPN=0:0 S ESPN=$O(^ESP(912,ESPID,30,ESPN)) Q:ESPN'>0!(END) D
  1. . S DIC="^ESP(912,"_ESPID_",30,",DA=ESPN,DR=".02:.07;1.01:1.06;2.01:2.06",DIQ(0)="E" D EN^DIQ1 Q:'$D(^UTILITY("DIQ1",$J,912.04,DA))
  1. . D MIN^ESPORP(15) Q:END
  1. . D LINES^ESPORP(2) Q:END F I=1:1:17 W "* "
  1. . W "VICTIM DATA"
  1. . F I=1:1:17 W " *"
  1. . D LINES^ESPORP(2) Q:END W "VICTIM NAME: ",$G(^UTILITY("DIQ1",$J,912.04,DA,.02,"E"))
  1. . D LINES^ESPORP() Q:END W "SEX: ",$G(^UTILITY("DIQ1",$J,912.04,DA,.03,"E"))
  1. . W ?20,"RACE: ",$G(^UTILITY("DIQ1",$J,912.04,DA,.04,"E"))
  1. . D LINES^ESPORP() Q:END W "STATUS: ",$G(^UTILITY("DIQ1",$J,912.04,DA,.05,"E"))
  1. . D LINES^ESPORP() Q:END W "DRIVER'S LICENSE & STATE: ",$G(^UTILITY("DIQ1",$J,912.04,DA,.06,"E"))," ",$G(^UTILITY("DIQ1",$J,912.04,DA,.07,"E"))
  1. . D LINES^ESPORP() Q:END W "HOME ADDRESS: ",$G(^UTILITY("DIQ1",$J,912.04,DA,1.01,"E"))
  1. . I $G(^UTILITY("DIQ1",$J,912.04,DA,1.02,"E"))]"" D LINES^ESPORP() Q:END W ?14,$G(^UTILITY("DIQ1",$J,912.04,DA,1.02,"E"))
  1. . I $G(^UTILITY("DIQ1",$J,912.04,DA,1.03,"E"))]"" D LINES^ESPORP() Q:END W ?14,$G(^UTILITY("DIQ1",$J,912.04,DA,1.03,"E")),","
  1. . W $G(^UTILITY("DIQ1",$J,912.04,DA,1.04,"E"))," ",$G(^UTILITY("DIQ1",$J,912.04,DA,1.05,"E"))
  1. . D LINES^ESPORP() Q:END W "HOME PHONE: ",$G(^UTILITY("DIQ1",$J,912.04,DA,1.06,"E"))
  1. . D LINES^ESPORP() Q:END W "WORK ADDRESS: ",$G(^UTILITY("DIQ1",$J,912.04,DA,2.01,"E"))
  1. . I $G(^UTILITY("DIQ1",$J,912.04,DA,2.02,"E"))]"" D LINES^ESPORP() Q:END W ?14,$G(^UTILITY("DIQ1",$J,912.04,DA,2.02,"E"))
  1. . I $G(^UTILITY("DIQ1",$J,912.04,DA,2.03,"E"))]"" D LINES^ESPORP() Q:END W ?14,$G(^UTILITY("DIQ1",$J,912.04,DA,2.03,"E")),","
  1. . W $G(^UTILITY("DIQ1",$J,912.04,DA,2.04,"E"))," ",$G(^UTILITY("DIQ1",$J,912.04,DA,2.05,"E"))
  1. . D LINES^ESPORP() Q:END W "WORK PHONE: ",$G(^UTILITY("DIQ1",$J,912.04,DA,2.06,"E"))
  1. . K ^UTILITY($J,"W") S DIWL=10,DIWR=70,DIWF="W",IEN=0
  1. . D LINES^ESPORP() Q:END W "MEDICAL TREATMENT:",!
  1. . F ESPN1=1:1 S IEN=$O(^ESP(912,ESPID,30,ESPN,10,IEN)) Q:IEN'>0 S X=^(IEN,0) D Q:END
  1. . . D MIN^ESPORP(2) Q:END
  1. . . D ^DIWP
  1. . Q:END
  1. . D ^DIWW
  1. CONT G:END EXIT G ^ESPORP2
  1. EXIT K DA,DIC,DIQ,DIWF,DIWL,DIWR,ESPDOB,ESPDOBP,DR,END,ESPDTR,ESPID,ESPFN,ESPN,ESPN1,IEN,PAGE,SSN,X
  1. K ^UTILITY("DIQ1",$J)
  1. Q