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: ESPORP3

Package: Police and Security

Routine: ESPORP3


Information

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

Source Information

Source file <ESPORP3.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;CONTINUED FROM ESPORP2
WIT ;PRINT WITNESSES
VEH ;PRINT VEHICLE(S)
LOST ;PRINT LOST PROPERTY
CONT
EXIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "* "
  • Line Location: WIT+5
Function Call: WRITE
  • Prompt: "WITNESS DATA"
  • Line Location: WIT+6
Function Call: WRITE
  • Prompt: " *"
  • Line Location: WIT+6
Function Call: WRITE
  • Prompt: "WITNESS NAME: ",$G(^UTILITY("DIQ1",$J,912.06,DA,.02,"E"))
  • Line Location: WIT+7
Function Call: WRITE
  • Prompt: "HOME ADDRESS: ",$G(^UTILITY("DIQ1",$J,912.06,DA,1.01,"E"))
  • Line Location: WIT+8
Function Call: WRITE
  • Prompt: ?14,$G(^UTILITY("DIQ1",$J,912.06,DA,1.02,"E"))
  • Line Location: WIT+9
Function Call: WRITE
  • Prompt: ?14,$G(^UTILITY("DIQ1",$J,912.06,DA,1.03,"E")),","
  • Line Location: WIT+10
Function Call: WRITE
  • Prompt: $G(^UTILITY("DIQ1",$J,912.06,DA,1.04,"E"))," ",$G(^UTILITY("DIQ1",$J,912.06,DA,1.05,"E"))
  • Line Location: WIT+11
Function Call: WRITE
  • Prompt: "HOME PHONE: ",$G(^UTILITY("DIQ1",$J,912.06,DA,1.06,"E"))
  • Line Location: WIT+12
Function Call: WRITE
  • Prompt: "WORK ADDRESS: ",$G(^UTILITY("DIQ1",$J,912.06,DA,2.01,"E"))
  • Line Location: WIT+13
Function Call: WRITE
  • Prompt: ?14,$G(^UTILITY("DIQ1",$J,912.06,DA,2.02,"E"))
  • Line Location: WIT+14
Function Call: WRITE
  • Prompt: ?14,$G(^UTILITY("DIQ1",$J,912.06,DA,2.03,"E")),","
  • Line Location: WIT+15
Function Call: WRITE
  • Prompt: $G(^UTILITY("DIQ1",$J,912.06,DA,2.04,"E"))," ",$G(^UTILITY("DIQ1",$J,912.06,DA,2.05,"E"))
  • Line Location: WIT+16
Function Call: WRITE
  • Prompt: "WORK PHONE: ",$G(^UTILITY("DIQ1",$J,912.06,DA,2.06,"E"))
  • Line Location: WIT+17
Function Call: WRITE
  • Prompt: "* "
  • Line Location: VEH+5
Function Call: WRITE
  • Prompt: "VEHICLE INFORMATION"
  • Line Location: VEH+6
Function Call: WRITE
  • Prompt: " *"
  • Line Location: VEH+6
Function Call: WRITE
  • Prompt: "LICENSE TAG # & STATE: ",$G(^UTILITY("DIQ1",$J,912.09,DA,.02,"E"))," ",$G(^UTILITY("DIQ1",$J,912.09,DA,.03,"E"))
  • Line Location: VEH+7
Function Call: WRITE
  • Prompt: "MAKE: ",$G(^UTILITY("DIQ1",$J,912.09,DA,.04,"E"))
  • Line Location: VEH+8
Function Call: WRITE
  • Prompt: ?35,"MODEL: ",$G(^UTILITY("DIQ1",$J,912.09,DA,.05,"E"))
  • Line Location: VEH+9
Function Call: WRITE
  • Prompt: "STYLE: ",$G(^UTILITY("DIQ1",$J,912.09,DA,.06,"E"))
  • Line Location: VEH+10
Function Call: WRITE
  • Prompt: "COLOR: ",$G(^UTILITY("DIQ1",$J,912.09,DA,.07,"E"))
  • Line Location: VEH+11
Function Call: WRITE
  • Prompt: "YEAR OF MANUFACTURE: ",$G(^UTILITY("DIQ1",$J,912.09,DA,.1,"E"))
  • Line Location: VEH+13
Function Call: WRITE
  • Prompt: "OWNER NAME: ",$G(^UTILITY("DIQ1",$J,912.09,DA,.11,"E"))
  • Line Location: VEH+14
Function Call: WRITE
  • Prompt: "* "
  • Line Location: LOST+6
Function Call: WRITE
  • Prompt: "LOST/STOLEN PROPERTY"
  • Line Location: LOST+7
Function Call: WRITE
  • Prompt: " *"
  • Line Location: LOST+7
Function Call: WRITE
  • Prompt: "ITEM NAME: ",$G(^UTILITY("DIQ1",$J,912.1,DA,.01,"E"))
  • Line Location: LOST+8
Function Call: WRITE
  • Prompt: "DESCRIPTION: ",$G(^UTILITY("DIQ1",$J,912.1,DA,.02,"E"))
  • Line Location: LOST+9
Function Call: WRITE
  • Prompt: "DOLLAR LOSS: ",$G(^UTILITY("DIQ1",$J,912.1,DA,.03,"E"))
  • Line Location: LOST+10
Function Call: WRITE
  • Prompt: "DOLLAR RECOVERED: ",$G(^UTILITY("DIQ1",$J,912.1,DA,.04,"E"))
  • Line Location: LOST+11
Info |  Source |  Entry Points |  Interaction Calls