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

Package: Police and Security

Routine: ESPUCP4


Information

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

Source Information

Source file <ESPUCP4.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?25,"VANDALISM"
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: !!,"Total # : ",$G(^UTILITY("DIQ1",$J,912.41,DA,152,"E"))
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: !,"Total $ : ",$G(^UTILITY("DIQ1",$J,912.41,DA,158,"E"))
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: !!,?15,"Offender"
  • Line Location: PRT+5
Function Call: WRITE
  • Prompt: !!?10,"Employee: ",$G(^UTILITY("DIQ1",$J,912.41,DA,153,"E"))
  • Line Location: PRT+6
Function Call: WRITE
  • Prompt: ?30,"Outsider: ",$G(^UTILITY("DIQ1",$J,912.41,DA,154,"E"))
  • Line Location: PRT+7
Function Call: WRITE
  • Prompt: !?10,"Patient : ",$G(^UTILITY("DIQ1",$J,912.41,DA,155,"E"))
  • Line Location: PRT+8
Function Call: WRITE
  • Prompt: ?30,"Unknown : ",$G(^UTILITY("DIQ1",$J,912.41,DA,156,"E"))
  • Line Location: PRT+9
Function Call: WRITE
  • Prompt: !?10,"Visitor : ",$G(^UTILITY("DIQ1",$J,912.41,DA,157,"E"))
  • Line Location: PRT+10
Function Call: WRITE
  • Prompt: !!!?25,"VICE SOLICITING Total # : ",$G(^UTILITY("DIQ1",$J,912.41,DA,159,"E"))
  • Line Location: PRT+11
Function Call: WRITE
  • Prompt: !!,"Bribery : ",$G(^UTILITY("DIQ1",$J,912.41,DA,160,"E"))
  • Line Location: PRT+12
Function Call: WRITE
  • Prompt: ?40,"Forgery : ",$G(^UTILITY("DIQ1",$J,912.41,DA,161,"E"))
  • Line Location: PRT+13
Function Call: WRITE
  • Prompt: !,"Fraud : ",$G(^UTILITY("DIQ1",$J,912.41,DA,162,"E"))
  • Line Location: PRT+14
Function Call: WRITE
  • Prompt: ?40,"Gambling : ",$G(^UTILITY("DIQ1",$J,912.41,DA,163,"E"))
  • Line Location: PRT+15
Function Call: WRITE
  • Prompt: !,"Solicitation/Prostitution : ",$G(^UTILITY("DIQ1",$J,912.41,DA,164,"E"))
  • Line Location: PRT+16
Function Call: WRITE
  • Prompt: ?40,"Sexual Misconduct : ",$G(^UTILITY("DIQ1",$J,912.41,DA,165,"E"))
  • Line Location: PRT+17
Function Call: WRITE
  • Prompt: !!,?15,"Offender"
  • Line Location: PRT+18
Function Call: WRITE
  • Prompt: !!?10,"Employee: ",$G(^UTILITY("DIQ1",$J,912.41,DA,166,"E"))
  • Line Location: PRT+19
Function Call: WRITE
  • Prompt: ?30,"Outsider: ",$G(^UTILITY("DIQ1",$J,912.41,DA,167,"E"))
  • Line Location: PRT+20
Function Call: WRITE
  • Prompt: !?10,"Patient : ",$G(^UTILITY("DIQ1",$J,912.41,DA,168,"E"))
  • Line Location: PRT+21
Function Call: WRITE
  • Prompt: ?30,"Unknown : ",$G(^UTILITY("DIQ1",$J,912.41,DA,169,"E"))
  • Line Location: PRT+22
Function Call: WRITE
  • Prompt: !?10,"Visitor : ",$G(^UTILITY("DIQ1",$J,912.41,DA,170,"E"))
  • Line Location: PRT+23
Function Call: WRITE
  • Prompt: !!!?25,"VIOLATION CHARGES Total # : ",$G(^UTILITY("DIQ1",$J,912.41,DA,171,"E"))
  • Line Location: PRT+25
Function Call: WRITE
  • Prompt: !!,"Courtesy Warnings Total # : ",$G(^UTILITY("DIQ1",$J,912.41,DA,172,"E"))
  • Line Location: PRT+26
Function Call: WRITE
  • Prompt: !!,"Non-Traffic : ",$G(^UTILITY("DIQ1",$J,912.41,DA,173,"E"))
  • Line Location: PRT+27
Function Call: WRITE
  • Prompt: !,"Moving : ",$G(^UTILITY("DIQ1",$J,912.41,DA,174,"E"))
  • Line Location: PRT+28
Function Call: WRITE
  • Prompt: !,"Parking : ",$G(^UTILITY("DIQ1",$J,912.41,DA,175,"E"))
  • Line Location: PRT+29
Function Call: WRITE
  • Prompt: !!,?15,"Offender"
  • Line Location: PRT+30
Function Call: WRITE
  • Prompt: !!?10,"Employee: ",$G(^UTILITY("DIQ1",$J,912.41,DA,176,"E"))
  • Line Location: PRT+31
Function Call: WRITE
  • Prompt: ?30,"Outsider: ",$G(^UTILITY("DIQ1",$J,912.41,DA,177,"E"))
  • Line Location: PRT+32
Function Call: WRITE
  • Prompt: !?10,"Patient : ",$G(^UTILITY("DIQ1",$J,912.41,DA,178,"E"))
  • Line Location: PRT+33
Function Call: WRITE
  • Prompt: ?30,"Visitor : ",$G(^UTILITY("DIQ1",$J,912.41,DA,179,"E"))
  • Line Location: PRT+34
Function Call: WRITE
  • Prompt: !!,"USDC Notice Total # : ",$G(^UTILITY("DIQ1",$J,912.41,DA,180,"E"))
  • Line Location: PRT+36
Function Call: WRITE
  • Prompt: !!,"Non-Traffic : ",$G(^UTILITY("DIQ1",$J,912.41,DA,181,"E"))
  • Line Location: PRT+37
Function Call: WRITE
  • Prompt: !,"Moving : ",$G(^UTILITY("DIQ1",$J,912.41,DA,182,"E"))
  • Line Location: PRT+38
Function Call: WRITE
  • Prompt: !,"Parking : ",$G(^UTILITY("DIQ1",$J,912.41,DA,183,"E"))
  • Line Location: PRT+39
Function Call: WRITE
  • Prompt: !!,?15,"Offender"
  • Line Location: PRT+40
Function Call: WRITE
  • Prompt: !!?10,"Employee: ",$G(^UTILITY("DIQ1",$J,912.41,DA,184,"E"))
  • Line Location: PRT+41
Function Call: WRITE
  • Prompt: ?30,"Outsider: ",$G(^UTILITY("DIQ1",$J,912.41,DA,185,"E"))
  • Line Location: PRT+42
Function Call: WRITE
  • Prompt: !?10,"Patient : ",$G(^UTILITY("DIQ1",$J,912.41,DA,186,"E"))
  • Line Location: PRT+43
Function Call: WRITE
  • Prompt: ?30,"Visitor : ",$G(^UTILITY("DIQ1",$J,912.41,DA,187,"E"))
  • Line Location: PRT+44
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",?70,"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
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: HDR1+0
Function Call: WRITE
  • Prompt: @IOF,!?70,"PAGE ",$J(PAGE,3)
  • Line Location: HDR1+1
Info |  Source |  Entry Points |  Interaction Calls