Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: ESPORP1

Package: Police and Security

Routine: ESPORP1


Information

ESPORP1 ;DALISC/CKA - PRINT OFFENSE REPORT CONT. ;10/92

Source Information

Source file <ESPORP1.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
COMP ;PRINT COMPLAINANTS
VIC ;PRINT VICTIMS
CONT
EXIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "* "
  • Line Location: COMP+4
Function Call: WRITE
  • Prompt: "COMPLAINANT DATA"
  • Line Location: COMP+5
Function Call: WRITE
  • Prompt: " *"
  • Line Location: COMP+5
Function Call: WRITE
  • Prompt: "COMPLAINANT NAME: ",$G(^UTILITY("DIQ1",$J,912.03,DA,.02,"E"))
  • Line Location: COMP+7
Function Call: WRITE
  • Prompt: "STATUS: ",$G(^UTILITY("DIQ1",$J,912.03,DA,.03,"E"))
  • Line Location: COMP+9
Function Call: WRITE
  • Prompt: "HOME ADDRESS: ",$G(^UTILITY("DIQ1",$J,912.03,DA,1.01,"E"))
  • Line Location: COMP+11
Function Call: WRITE
  • Prompt: ?14,$G(^UTILITY("DIQ1",$J,912.03,DA,1.02,"E"))
  • Line Location: COMP+12
Function Call: WRITE
  • Prompt: ?14,$G(^UTILITY("DIQ1",$J,912.03,DA,1.03,"E")),","
  • Line Location: COMP+13
Function Call: WRITE
  • Prompt: $G(^UTILITY("DIQ1",$J,912.03,DA,1.04,"E"))," ",$G(^UTILITY("DIQ1",$J,912.03,DA,1.05,"E"))
  • Line Location: COMP+14
Function Call: WRITE
  • Prompt: "HOME PHONE: ",$G(^UTILITY("DIQ1",$J,912.03,DA,1.06,"E"))
  • Line Location: COMP+16
Function Call: WRITE
  • Prompt: "WORK ADDRESS: ",$G(^UTILITY("DIQ1",$J,912.03,DA,2.01,"E"))
  • Line Location: COMP+18
Function Call: WRITE
  • Prompt: ?14,$G(^UTILITY("DIQ1",$J,912.03,DA,2.02,"E"))
  • Line Location: COMP+19
Function Call: WRITE
  • Prompt: ?14,$G(^UTILITY("DIQ1",$J,912.03,DA,2.03,"E")),","
  • Line Location: COMP+20
Function Call: WRITE
  • Prompt: $G(^UTILITY("DIQ1",$J,912.03,DA,2.04,"E"))," ",$G(^UTILITY("DIQ1",$J,912.03,DA,2.05,"E"))
  • Line Location: COMP+21
Function Call: WRITE
  • Prompt: "WORK PHONE: ",$G(^UTILITY("DIQ1",$J,912.03,DA,2.06,"E"))
  • Line Location: COMP+23
Function Call: WRITE
  • Prompt: "* "
  • Line Location: VIC+5
Function Call: WRITE
  • Prompt: "VICTIM DATA"
  • Line Location: VIC+6
Function Call: WRITE
  • Prompt: " *"
  • Line Location: VIC+7
Function Call: WRITE
  • Prompt: "VICTIM NAME: ",$G(^UTILITY("DIQ1",$J,912.04,DA,.02,"E"))
  • Line Location: VIC+8
Function Call: WRITE
  • Prompt: "SEX: ",$G(^UTILITY("DIQ1",$J,912.04,DA,.03,"E"))
  • Line Location: VIC+9
Function Call: WRITE
  • Prompt: ?20,"RACE: ",$G(^UTILITY("DIQ1",$J,912.04,DA,.04,"E"))
  • Line Location: VIC+10
Function Call: WRITE
  • Prompt: "STATUS: ",$G(^UTILITY("DIQ1",$J,912.04,DA,.05,"E"))
  • Line Location: VIC+11
Function Call: WRITE
  • Prompt: "DRIVER'S LICENSE & STATE: ",$G(^UTILITY("DIQ1",$J,912.04,DA,.06,"E"))," ",$G(^UTILITY("DIQ1",$J,912.04,DA,.07,"E"))
  • Line Location: VIC+12
Function Call: WRITE
  • Prompt: "HOME ADDRESS: ",$G(^UTILITY("DIQ1",$J,912.04,DA,1.01,"E"))
  • Line Location: VIC+13
Function Call: WRITE
  • Prompt: ?14,$G(^UTILITY("DIQ1",$J,912.04,DA,1.02,"E"))
  • Line Location: VIC+14
Function Call: WRITE
  • Prompt: ?14,$G(^UTILITY("DIQ1",$J,912.04,DA,1.03,"E")),","
  • Line Location: VIC+15
Function Call: WRITE
  • Prompt: $G(^UTILITY("DIQ1",$J,912.04,DA,1.04,"E"))," ",$G(^UTILITY("DIQ1",$J,912.04,DA,1.05,"E"))
  • Line Location: VIC+16
Function Call: WRITE
  • Prompt: "HOME PHONE: ",$G(^UTILITY("DIQ1",$J,912.04,DA,1.06,"E"))
  • Line Location: VIC+17
Function Call: WRITE
  • Prompt: "WORK ADDRESS: ",$G(^UTILITY("DIQ1",$J,912.04,DA,2.01,"E"))
  • Line Location: VIC+18
Function Call: WRITE
  • Prompt: ?14,$G(^UTILITY("DIQ1",$J,912.04,DA,2.02,"E"))
  • Line Location: VIC+19
Function Call: WRITE
  • Prompt: ?14,$G(^UTILITY("DIQ1",$J,912.04,DA,2.03,"E")),","
  • Line Location: VIC+20
Function Call: WRITE
  • Prompt: $G(^UTILITY("DIQ1",$J,912.04,DA,2.04,"E"))," ",$G(^UTILITY("DIQ1",$J,912.04,DA,2.05,"E"))
  • Line Location: VIC+21
Function Call: WRITE
  • Prompt: "WORK PHONE: ",$G(^UTILITY("DIQ1",$J,912.04,DA,2.06,"E"))
  • Line Location: VIC+22
Function Call: WRITE
  • Prompt: "MEDICAL TREATMENT:",!
  • Line Location: VIC+24
Info |  Source |  Entry Points |  Interaction Calls