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

Package: Police and Security

Routine: ESPUCFP2


Information

ESPUCFP2 ;DALISC/CKA -PRINT UNIFORM CRIME REPORT (CONT)- 3/99

Source Information

Source file <ESPUCFP2.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?25,"DISTURBANCES Total # : ",$G(^UTILITY("DIQ1",$J,912.31,DA,46,"E"))
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: !!,"Bomb Threats : ",$G(^UTILITY("DIQ1",$J,912.31,DA,47,"E"))
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: ?40,"Demonstrations : ",$G(^UTILITY("DIQ1",$J,912.31,DA,48,"E"))
  • Line Location: PRT+5
Function Call: WRITE
  • Prompt: !,"Disorderly Conduct : ",$G(^UTILITY("DIQ1",$J,912.31,DA,49,"E"))
  • Line Location: PRT+6
Function Call: WRITE
  • Prompt: ?40,"Employee Threat : ",$G(^UTILITY("DIQ1",$J,912.31,DA,50,"E"))
  • Line Location: PRT+7
Function Call: WRITE
  • Prompt: !,"Other Threat : ",$G(^UTILITY("DIQ1",$J,912.31,DA,51,"E"))
  • Line Location: PRT+8
Function Call: WRITE
  • Prompt: ?40,"Smoking Violation : ",$G(^UTILITY("DIQ1",$J,912.31,DA,52,"E"))
  • Line Location: PRT+9
Function Call: WRITE
  • Prompt: !,"Trespassing : ",$G(^UTILITY("DIQ1",$J,912.31,DA,53,"E"))
  • Line Location: PRT+10
Function Call: WRITE
  • Prompt: ?40,"Unauthorized Photograph : ",$G(^UTILITY("DIQ1",$J,912.31,DA,54,"E"))
  • Line Location: PRT+11
Function Call: WRITE
  • Prompt: !,"Unauth/Poss/Use/Keys/Cards : ",$G(^UTILITY("DIQ1",$J,912.31,DA,55,"E"))
  • Line Location: PRT+12
Function Call: WRITE
  • Prompt: !!,?15,"Offender"
  • Line Location: PRT+13
Function Call: WRITE
  • Prompt: !!?10,"Employee: ",$G(^UTILITY("DIQ1",$J,912.31,DA,56,"E"))
  • Line Location: PRT+14
Function Call: WRITE
  • Prompt: ?30,"Outsider: ",$G(^UTILITY("DIQ1",$J,912.31,DA,57,"E"))
  • Line Location: PRT+15
Function Call: WRITE
  • Prompt: !?10,"Patient : ",$G(^UTILITY("DIQ1",$J,912.31,DA,58,"E"))
  • Line Location: PRT+16
Function Call: WRITE
  • Prompt: ?30,"Unknown : ",$G(^UTILITY("DIQ1",$J,912.31,DA,59,"E"))
  • Line Location: PRT+17
Function Call: WRITE
  • Prompt: !?10,"Visitor : ",$G(^UTILITY("DIQ1",$J,912.31,DA,60,"E"))
  • Line Location: PRT+18
Function Call: WRITE
  • Prompt: !!!?21,"MANSLAUGHTER/MURDER Total # : ",$G(^UTILITY("DIQ1",$J,912.31,DA,61,"E"))+$G(^UTILITY("DIQ1",$J,912.31,DA,62,"E"))
  • Line Location: PRT+20
Function Call: WRITE
  • Prompt: !!,"Manslaughter/Murder/Negligent : ",$G(^UTILITY("DIQ1",$J,912.31,DA,61,"E"))
  • Line Location: PRT+21
Function Call: WRITE
  • Prompt: !,"Manslaughter/Murder/Non-Neg. : ",$G(^UTILITY("DIQ1",$J,912.31,DA,62,"E"))
  • Line Location: PRT+22
Function Call: WRITE
  • Prompt: !!,?15,"Offender",?50,"Victim"
  • Line Location: PRT+23
Function Call: WRITE
  • Prompt: !!?10,"Employee: ",$G(^UTILITY("DIQ1",$J,912.31,DA,63,"E")),?45,"Employee : ",$G(^UTILITY("DIQ1",$J,912.31,DA,68,"E"))
  • Line Location: PRT+24
Function Call: WRITE
  • Prompt: !?10,"Outsider: ",$G(^UTILITY("DIQ1",$J,912.31,DA,64,"E")),?45,"Outsider : ",$G(^UTILITY("DIQ1",$J,912.31,DA,69,"E"))
  • Line Location: PRT+25
Function Call: WRITE
  • Prompt: !?10,"Patient : ",$G(^UTILITY("DIQ1",$J,912.31,DA,65,"E")),?45,"Patient : ",$G(^UTILITY("DIQ1",$J,912.31,DA,70,"E"))
  • Line Location: PRT+26
Function Call: WRITE
  • Prompt: !?10,"Unknown : ",$G(^UTILITY("DIQ1",$J,912.31,DA,66,"E")),?45,"Visitor : ",$G(^UTILITY("DIQ1",$J,912.31,DA,71,"E"))
  • Line Location: PRT+27
Function Call: WRITE
  • Prompt: !?10,"Visitor : ",$G(^UTILITY("DIQ1",$J,912.31,DA,67,"E"))
  • Line Location: PRT+28
Function Call: WRITE
  • Prompt: !!!?16,"NON-CRIMINAL INVESTIGATIONS Total # : ",$G(^UTILITY("DIQ1",$J,912.31,DA,72,"E"))
  • Line Location: PRT+30
Function Call: WRITE
  • Prompt: !!,"Missing Patient Reaction : ",$G(^UTILITY("DIQ1",$J,912.31,DA,73,"E"))
  • Line Location: PRT+31
Function Call: WRITE
  • Prompt: ?40,"Government Veh. Accident : ",$G(^UTILITY("DIQ1",$J,912.31,DA,75,"E"))
  • Line Location: PRT+32
Function Call: WRITE
  • Prompt: !,"Personal Veh. Accident : ",$G(^UTILITY("DIQ1",$J,912.31,DA,76,"E"))
  • Line Location: PRT+33
Function Call: WRITE
  • Prompt: ?40,"Assist Law Officer : ",$G(^UTILITY("DIQ1",$J,912.31,DA,77,"E"))
  • Line Location: PRT+34
Function Call: WRITE
  • Prompt: !,"Staff Assist : ",$G(^UTILITY("DIQ1",$J,912.31,DA,78,"E"))
  • Line Location: PRT+35
Function Call: WRITE
  • Prompt: ?40,"Alarm Response : ",$G(^UTILITY("DIQ1",$J,912.31,DA,79,"E"))
  • Line Location: PRT+36
Function Call: WRITE
  • Prompt: !,"Safety Hazard : ",$G(^UTILITY("DIQ1",$J,912.31,DA,80,"E"))
  • Line Location: PRT+37
Function Call: WRITE
  • Prompt: ?40,"Information Only : ",$G(^UTILITY("DIQ1",$J,912.31,DA,188,"E"))
  • Line Location: PRT+38
Function Call: WRITE
  • Prompt: !!!?25,"OTHER OFFENSES Total # : ",$G(^UTILITY("DIQ1",$J,912.31,DA,81,"E"))
  • Line Location: PRT+40
Function Call: WRITE
  • Prompt: !!,"Arson : ",$G(^UTILITY("DIQ1",$J,912.31,DA,82,"E"))
  • Line Location: PRT+41
Function Call: WRITE
  • Prompt: ?40,"Arson $ Damage : ",$G(^UTILITY("DIQ1",$J,912.31,DA,83,"E"))
  • Line Location: PRT+42
Function Call: WRITE
  • Prompt: !,"Possession/Stolen Property : ",$G(^UTILITY("DIQ1",$J,912.31,DA,84,"E"))
  • Line Location: PRT+43
Function Call: WRITE
  • Prompt: ?40,"Receive/Sell Stolen Property: ",$G(^UTILITY("DIQ1",$J,912.31,DA,85,"E"))
  • Line Location: PRT+44
Function Call: WRITE
  • Prompt: !,"Suicide : ",$G(^UTILITY("DIQ1",$J,912.31,DA,86,"E"))
  • Line Location: PRT+45
Function Call: WRITE
  • Prompt: ?40,"Suicide Attempt : ",$G(^UTILITY("DIQ1",$J,912.31,DA,87,"E"))
  • Line Location: PRT+46
Function Call: WRITE
  • Prompt: !!!?25,"RAPES Total # : ",$G(^UTILITY("DIQ1",$J,912.31,DA,88,"E"))
  • Line Location: PRT+48
Function Call: WRITE
  • Prompt: !!,"Attempted Rape : ",$G(^UTILITY("DIQ1",$J,912.31,DA,89,"E"))
  • Line Location: PRT+49
Function Call: WRITE
  • Prompt: !,"Forcible Rape : ",$G(^UTILITY("DIQ1",$J,912.31,DA,90,"E"))
  • Line Location: PRT+50
Function Call: WRITE
  • Prompt: !!,?15,"Offender",?50,"Victim"
  • Line Location: PRT+51
Function Call: WRITE
  • Prompt: !!?10,"Employee: ",$G(^UTILITY("DIQ1",$J,912.31,DA,91,"E")),?45,"Employee : ",$G(^UTILITY("DIQ1",$J,912.31,DA,96,"E"))
  • Line Location: PRT+52
Function Call: WRITE
  • Prompt: !?10,"Outsider: ",$G(^UTILITY("DIQ1",$J,912.31,DA,92,"E")),?45,"Outsider : ",$G(^UTILITY("DIQ1",$J,912.31,DA,97,"E"))
  • Line Location: PRT+53
Function Call: WRITE
  • Prompt: !?10,"Patient : ",$G(^UTILITY("DIQ1",$J,912.31,DA,93,"E")),?45,"Patient : ",$G(^UTILITY("DIQ1",$J,912.31,DA,98,"E"))
  • Line Location: PRT+54
Function Call: WRITE
  • Prompt: !?10,"Unknown : ",$G(^UTILITY("DIQ1",$J,912.31,DA,94,"E")),?45,"Visitor : ",$G(^UTILITY("DIQ1",$J,912.31,DA,99,"E"))
  • Line Location: PRT+55
Function Call: WRITE
  • Prompt: !?10,"Visitor : ",$G(^UTILITY("DIQ1",$J,912.31,DA,95,"E"))
  • Line Location: PRT+56
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 ",ESPFACI
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: ?45,"BEGINNING DATE: ",$G(^UTILITY("DIQ1",$J,912.3,ESPIEN,.01,"E"))
  • Line Location: BDT+0
Function Call: WRITE
  • Prompt: !,"Date/Time Printed",?45,"ENDING DATE: ",$G(^UTILITY("DIQ1",$J,912.3,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,!?25,"UNIFORM CRIME REPORT",?70,"Page ",$J(PAGE,3)
  • Line Location: HDR1+1
Info |  Source |  Entry Points |  Interaction Calls