Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: ESPUCP3

Package: Police and Security

Routine: ESPUCP3


Information

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

Source Information

Source file <ESPUCP3.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Police and Security 2 PRT^ESPUCP4  ($$EOP,$$NOW)^ESPUTIL  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Police and Security 1 ESPUCP2  

Entry Points

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

External References

Name Field # of Occurrence
PRT^ESPUCP4 PRT+66
$$EOP^ESPUTIL HDR+1, HDR1
$$NOW^ESPUTIL EDT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?25,"ROBBERY Total # : ",$G(^UTILITY("DIQ1",$J,912.41,DA,100,"E"))
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: !!,"Armed Robbery : ",$G(^UTILITY("DIQ1",$J,912.41,DA,101,"E"))
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: ?40,"$100 & Above : ",$G(^UTILITY("DIQ1",$J,912.41,DA,102,"E"))
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: !?40,"<$100 : ",$G(^UTILITY("DIQ1",$J,912.41,DA,103,"E"))
  • Line Location: PRT+5
Function Call: WRITE
  • Prompt: !,"Strong Armed Robbery : ",$G(^UTILITY("DIQ1",$J,912.41,DA,104,"E"))
  • Line Location: PRT+6
Function Call: WRITE
  • Prompt: ?40,"$100 & Above : ",$G(^UTILITY("DIQ1",$J,912.41,DA,105,"E"))
  • Line Location: PRT+7
Function Call: WRITE
  • Prompt: !?40,"<$100 : ",$G(^UTILITY("DIQ1",$J,912.41,DA,106,"E"))
  • Line Location: PRT+8
Function Call: WRITE
  • Prompt: !,"Drugs Only : ",$G(^UTILITY("DIQ1",$J,912.41,DA,107,"E"))
  • Line Location: PRT+9
Function Call: WRITE
  • Prompt: ?40,"Robbery Total $ Loss : ",$G(^UTILITY("DIQ1",$J,912.41,DA,108,"E"))
  • Line Location: PRT+10
Function Call: WRITE
  • Prompt: !?40,"Robbery Total $ Recovered : ",$G(^UTILITY("DIQ1",$J,912.41,DA,109,"E"))
  • Line Location: PRT+11
Function Call: WRITE
  • Prompt: !!!?25,"STOPS & ARRESTS Total # : ",$G(^UTILITY("DIQ1",$J,912.41,DA,110,"E"))
  • Line Location: PRT+13
Function Call: WRITE
  • Prompt: !!,"Physical Arrests : ",$G(^UTILITY("DIQ1",$J,912.41,DA,111,"E"))
  • Line Location: PRT+14
Function Call: WRITE
  • Prompt: !!,?15,"Offender"
  • Line Location: PRT+15
Function Call: WRITE
  • Prompt: !!?10,"Employee: ",$G(^UTILITY("DIQ1",$J,912.41,DA,112,"E"))
  • Line Location: PRT+16
Function Call: WRITE
  • Prompt: ?30,"Outsider: ",$G(^UTILITY("DIQ1",$J,912.41,DA,113,"E"))
  • Line Location: PRT+17
Function Call: WRITE
  • Prompt: !?10,"Patient : ",$G(^UTILITY("DIQ1",$J,912.41,DA,114,"E"))
  • Line Location: PRT+18
Function Call: WRITE
  • Prompt: ?30,"Visitor : ",$G(^UTILITY("DIQ1",$J,912.41,DA,115,"E"))
  • Line Location: PRT+19
Function Call: WRITE
  • Prompt: !!,"Stops for Questioning : ",$G(^UTILITY("DIQ1",$J,912.41,DA,116,"E"))
  • Line Location: PRT+20
Function Call: WRITE
  • Prompt: ?40,"Package Stops : ",$G(^UTILITY("DIQ1",$J,912.41,DA,117,"E"))
  • Line Location: PRT+21
Function Call: WRITE
  • Prompt: !?40,"Non-Package Stops : ",$G(^UTILITY("DIQ1",$J,912.41,DA,118,"E"))
  • Line Location: PRT+22
Function Call: WRITE
  • Prompt: !!!?25,"THEFTS Total # : ",$G(^UTILITY("DIQ1",$J,912.41,DA,119,"E"))
  • Line Location: PRT+24
Function Call: WRITE
  • Prompt: !!,"Coin-Operated Machines : ",$G(^UTILITY("DIQ1",$J,912.41,DA,120,"E"))
  • Line Location: PRT+25
Function Call: WRITE
  • Prompt: ?40,"Total $ Loss : ",$G(^UTILITY("DIQ1",$J,912.41,DA,121,"E"))
  • Line Location: PRT+26
Function Call: WRITE
  • Prompt: !?40,"Total $ Recovery : ",$G(^UTILITY("DIQ1",$J,912.41,DA,122,"E"))
  • Line Location: PRT+27
Function Call: WRITE
  • Prompt: !!,"Actual Drug Thefts : ",$G(^UTILITY("DIQ1",$J,912.41,DA,123,"E"))
  • Line Location: PRT+28
Function Call: WRITE
  • Prompt: ?40,"Controlled Substance : ",$G(^UTILITY("DIQ1",$J,912.41,DA,125,"E"))
  • Line Location: PRT+29
Function Call: WRITE
  • Prompt: !?40,"Non-Controlled Substance : ",$G(^UTILITY("DIQ1",$J,912.41,DA,126,"E"))
  • Line Location: PRT+30
Function Call: WRITE
  • Prompt: !!,"Attempted Drug Thefts : ",$G(^UTILITY("DIQ1",$J,912.41,DA,124,"E"))
  • Line Location: PRT+31
Function Call: WRITE
  • Prompt: ?40,"Controlled Substance : ",$G(^UTILITY("DIQ1",$J,912.41,DA,127,"E"))
  • Line Location: PRT+32
Function Call: WRITE
  • Prompt: !?40,"Non-Controlled Substance : ",$G(^UTILITY("DIQ1",$J,912.41,DA,128,"E"))
  • Line Location: PRT+33
Function Call: WRITE
  • Prompt: !!,"Total Drug Thefts : ",$G(^UTILITY("DIQ1",$J,912.41,DA,129,"E"))
  • Line Location: PRT+34
Function Call: WRITE
  • Prompt: ?40,"Total Drug $ Loss : ",$G(^UTILITY("DIQ1",$J,912.41,DA,130,"E"))
  • Line Location: PRT+35
Function Call: WRITE
  • Prompt: !?40,"Total Drug $ Recovered : ",$G(^UTILITY("DIQ1",$J,912.41,DA,131,"E"))
  • Line Location: PRT+36
Function Call: WRITE
  • Prompt: !!,"Government Property : ",$G(^UTILITY("DIQ1",$J,912.41,DA,132,"E"))
  • Line Location: PRT+39
Function Call: WRITE
  • Prompt: ?40,"$100 & Above : ",$G(^UTILITY("DIQ1",$J,912.41,DA,133,"E"))
  • Line Location: PRT+41
Function Call: WRITE
  • Prompt: !?40,"< $100 : ",$G(^UTILITY("DIQ1",$J,912.41,DA,134,"E"))
  • Line Location: PRT+42
Function Call: WRITE
  • Prompt: ?40,"$1000 & Above : ",$G(^UTILITY("DIQ1",$J,912.41,DA,133.1,"E"))
  • Line Location: PRT+44
Function Call: WRITE
  • Prompt: !?40,"< $1000 : ",$G(^UTILITY("DIQ1",$J,912.41,DA,134.1,"E"))
  • Line Location: PRT+45
Function Call: WRITE
  • Prompt: !?40,"Total Gov't $ Loss : ",$G(^UTILITY("DIQ1",$J,912.41,DA,135,"E"))
  • Line Location: PRT+46
Function Call: WRITE
  • Prompt: !?40,"Total Gov't $ Recovered : ",$G(^UTILITY("DIQ1",$J,912.41,DA,136,"E"))
  • Line Location: PRT+47
Function Call: WRITE
  • Prompt: !!,"Personal Property : ",$G(^UTILITY("DIQ1",$J,912.41,DA,137,"E"))
  • Line Location: PRT+49
Function Call: WRITE
  • Prompt: ?40,"$100 & Above : ",$G(^UTILITY("DIQ1",$J,912.41,DA,138,"E"))
  • Line Location: PRT+51
Function Call: WRITE
  • Prompt: !?40,"< $100 : ",$G(^UTILITY("DIQ1",$J,912.41,DA,139,"E"))
  • Line Location: PRT+52
Function Call: WRITE
  • Prompt: ?40,"$1000 & Above : ",$G(^UTILITY("DIQ1",$J,912.41,DA,138.1,"E"))
  • Line Location: PRT+54
Function Call: WRITE
  • Prompt: !?40,"< $1000 : ",$G(^UTILITY("DIQ1",$J,912.41,DA,139.1,"E"))
  • Line Location: PRT+55
Function Call: WRITE
  • Prompt: !?40,"Total Personal $ Loss : ",$G(^UTILITY("DIQ1",$J,912.41,DA,140,"E"))
  • Line Location: PRT+56
Function Call: WRITE
  • Prompt: !?40,"Total Personal $ Recovered : ",$G(^UTILITY("DIQ1",$J,912.41,DA,141,"E"))
  • Line Location: PRT+57
Function Call: WRITE
  • Prompt: !!,"Government Motor Vehicles : ",$G(^UTILITY("DIQ1",$J,912.41,DA,143,"E"))
  • Line Location: PRT+58
Function Call: WRITE
  • Prompt: ?40,"Gov't Vehicles Recovered : ",$G(^UTILITY("DIQ1",$J,912.41,DA,146,"E"))
  • Line Location: PRT+59
Function Call: WRITE
  • Prompt: !?40,"$ Loss Gov't Vehicles : ",$G(^UTILITY("DIQ1",$J,912.41,DA,144,"E"))
  • Line Location: PRT+60
Function Call: WRITE
  • Prompt: !?40,"$ Recovered Gov't Vehicles : ",$G(^UTILITY("DIQ1",$J,912.41,DA,145,"E"))
  • Line Location: PRT+61
Function Call: WRITE
  • Prompt: !!,"Private Motor Vehicles : ",$G(^UTILITY("DIQ1",$J,912.41,DA,147,"E"))
  • Line Location: PRT+62
Function Call: WRITE
  • Prompt: ?40,"Private Vehicles Recovered : ",$G(^UTILITY("DIQ1",$J,912.41,DA,150,"E"))
  • Line Location: PRT+63
Function Call: WRITE
  • Prompt: !?40,"$ Loss Private Vehicles : ",$G(^UTILITY("DIQ1",$J,912.41,DA,148,"E"))
  • Line Location: PRT+64
Function Call: WRITE
  • Prompt: !?40,"$ Recovered Private Vehicles: ",$G(^UTILITY("DIQ1",$J,912.41,DA,149,"E"))
  • Line Location: PRT+65
Function Call: WRITE
  • Prompt: !!,"Done."
  • Line Location: EX+0
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: !,$$NOW^ESPUTIL()
  • Line Location: EDT+1
Function Call: WRITE
  • Prompt: @IOF,!?70,"PAGE ",$J(PAGE,3)
  • Line Location: HDR1+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ESP(912.4 - [#912.4] PRT+38, HDR+3
^UTILITY("DIQ1" PRT+2, PRT+3, PRT+4, PRT+5, PRT+6, PRT+7, PRT+8, PRT+9, PRT+10, PRT+11
PRT+13, PRT+14, PRT+16, PRT+17, PRT+18, PRT+19, PRT+20, PRT+21, PRT+22, PRT+24
PRT+25, PRT+26, PRT+27, PRT+28, PRT+29, PRT+30, PRT+31, PRT+32, PRT+33, PRT+34
PRT+35, PRT+36, PRT+39, PRT+41, PRT+42, PRT+44, PRT+45, PRT+46, PRT+47, PRT+49
PRT+51, PRT+52, PRT+54, PRT+55, PRT+56, PRT+57, PRT+58, PRT+59, PRT+60, PRT+61
PRT+62, PRT+63, PRT+64, PRT+65, BDTEDT

Label References

Name Line Occurrences
HDR PRT+1
HDR1 PRT+12, PRT+23, PRT+37, PRT+48

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA PRT+2, PRT+3, PRT+4, PRT+5, PRT+6, PRT+7, PRT+8, PRT+9, PRT+10, PRT+11
PRT+13, PRT+14, PRT+16, PRT+17, PRT+18, PRT+19, PRT+20, PRT+21, PRT+22, PRT+24
PRT+25, PRT+26, PRT+27, PRT+28, PRT+29, PRT+30, PRT+31, PRT+32, PRT+33, PRT+34
PRT+35, PRT+36, PRT+39, PRT+41, PRT+42, PRT+44, PRT+45, PRT+46, PRT+47, PRT+49
PRT+51, PRT+52, PRT+54, PRT+55, PRT+56, PRT+57, PRT+58, PRT+59, PRT+60, PRT+61
PRT+62, PRT+63, PRT+64, PRT+65
>> END PRT+1, PRT+12, PRT+23, PRT+37, PRT+48, HDR+1*, HDR1*
>> ESPBEG PRT+38*, PRT+40, PRT+43, PRT+50, PRT+53
>> ESPIEN PRT+38, HDR+3, BDTEDT
IOF HDR+2, HDR1+1
IOSL PRT+12, PRT+23, PRT+37, PRT+48
IOST HDR+1, HDR1
>> PAGE HDR+2*, HDR1+1*
U PRT+38, HDR+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All