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

Package: Police and Security

Routine: ESPUCP6


Information

ESPUCP6 ;DALISC/CKA -PRINT UNIFORM CRIME REPORT (CONT)- 3/93

Source Information

Source file <ESPUCP6.m>

Entry Points

Name Comments DBIA/ICR reference
EN
PRT ;PRINT REPORT CONTINUED- PRINTS 6TH PAGE
EX
HDR ;PRINT HEADING
BDT
EDT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?25,"VIOLATION CHARGES Total # : ",$G(^UTILITY("DIQ1",$J,912.41,DA,171,"E"))
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: !!,"Courtesy Warnings Total # : ",$G(^UTILITY("DIQ1",$J,912.41,DA,172,"E"))
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: !!,"Non-Traffic : ",$G(^UTILITY("DIQ1",$J,912.41,DA,173,"E"))
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: !,"Moving : ",$G(^UTILITY("DIQ1",$J,912.41,DA,174,"E"))
  • Line Location: PRT+5
Function Call: WRITE
  • Prompt: !,"Parking : ",$G(^UTILITY("DIQ1",$J,912.41,DA,175,"E"))
  • Line Location: PRT+6
Function Call: WRITE
  • Prompt: !!,?10,"Offender"
  • Line Location: PRT+7
Function Call: WRITE
  • Prompt: !!,"Employee: ",$G(^UTILITY("DIQ1",$J,912.41,DA,176,"E"))
  • Line Location: PRT+8
Function Call: WRITE
  • Prompt: !,"Outsider: ",$G(^UTILITY("DIQ1",$J,912.41,DA,177,"E"))
  • Line Location: PRT+9
Function Call: WRITE
  • Prompt: !,"Patient : ",$G(^UTILITY("DIQ1",$J,912.41,DA,178,"E"))
  • Line Location: PRT+10
Function Call: WRITE
  • Prompt: !,"Visitor : ",$G(^UTILITY("DIQ1",$J,912.41,DA,179,"E"))
  • Line Location: PRT+11
Function Call: WRITE
  • Prompt: !!,"USDC Notice Total # : ",$G(^UTILITY("DIQ1",$J,912.41,DA,180,"E"))
  • Line Location: PRT+12
Function Call: WRITE
  • Prompt: !!,"Non-Traffic : ",$G(^UTILITY("DIQ1",$J,912.41,DA,181,"E"))
  • Line Location: PRT+13
Function Call: WRITE
  • Prompt: !,"Moving : ",$G(^UTILITY("DIQ1",$J,912.41,DA,182,"E"))
  • Line Location: PRT+14
Function Call: WRITE
  • Prompt: !,"Parking : ",$G(^UTILITY("DIQ1",$J,912.41,DA,183,"E"))
  • Line Location: PRT+15
Function Call: WRITE
  • Prompt: !!,?10,"Offender"
  • Line Location: PRT+16
Function Call: WRITE
  • Prompt: !!,"Employee: ",$G(^UTILITY("DIQ1",$J,912.41,DA,184,"E"))
  • Line Location: PRT+17
Function Call: WRITE
  • Prompt: !,"Outsider: ",$G(^UTILITY("DIQ1",$J,912.41,DA,185,"E"))
  • Line Location: PRT+18
Function Call: WRITE
  • Prompt: !,"Patient : ",$G(^UTILITY("DIQ1",$J,912.41,DA,186,"E"))
  • Line Location: PRT+19
Function Call: WRITE
  • Prompt: !,"Visitor : ",$G(^UTILITY("DIQ1",$J,912.41,DA,187,"E"))
  • Line Location: PRT+20
Function Call: WRITE
  • Prompt: !!,"Done."
  • Line Location: EX+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: @IOF,!?25,"UNIFORM CRIME REPORT",?(IOM-10),"PAGE: ",$J(PAGE,3)
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,"VA Facility ",$P(^ESP(912.4,ESPIEN,1,1,0),U)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: ?45,"BEGINNING DATE: ",$G(^UTILITY("DIQ1",$J,912.4,ESPIEN,.01,"E"))
  • Line Location: BDT+0
Function Call: WRITE
  • Prompt: !,"Date/Time Printed",?45,"ENDING DATE: ",$G(^UTILITY("DIQ1",$J,912.4,ESPIEN,.02,"E"))
  • Line Location: EDT+0
Function Call: WRITE
  • Prompt: !,$P(Y,":",1,2)
  • Line Location: EDT+1
Info |  Source |  Entry Points |  Interaction Calls