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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: ESP122P2

Package: Police and Security

Routine: ESP122P2


Information

ESP122P2 ;ALB/JAP; POST-INSTALL FOR ES*1*22 cont.;3/98

Source Information

Source file <ESP122P2.m>

Entry Points

Name Comments DBIA/ICR reference
MANUAL ;user update of file #912 entries (manual)
DISPLAY ;display file #912 record data
UPDATE ;allow user to update subtype of subrecord

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: !?20,"Patch ES*1*22 Conversion Utility"
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: !,"File #912 ien: ",ESIEN
  • Line Location: DISPLAY+5
Function Call: WRITE
  • Prompt: ?45,"UOR# ",$E(ESPDTR,2,3),"-",$E(ESPDTR,4,5),"-",$E(ESPDTR,6,7),"-",$TR($E($P(ESPDTR,".",2)_"ZZZZ",1,4),"Z",0)
  • Line Location: DISPLAY+6
Function Call: WRITE
  • Prompt: !,"DATE/TIME RECEIVED: ",$G(^UTILITY("DIQ1",$J,912,DA,.02,"E"))
  • Line Location: DISPLAY+9
Function Call: WRITE
  • Prompt: !,"DATE/TIME OF OFFENSE: ",$G(^UTILITY("DIQ1",$J,912,DA,.03,"E"))
  • Line Location: DISPLAY+10
Function Call: WRITE
  • Prompt: !,"LOCATION: ",$G(^UTILITY("DIQ1",$J,912,DA,.04,"E"))
  • Line Location: DISPLAY+11
Function Call: WRITE
  • Prompt: !,"INVESTIGATING OFFICER: ",$G(^UTILITY("DIQ1",$J,912,DA,.06,"E"))
  • Line Location: DISPLAY+12
Function Call: WRITE
  • Prompt: !,"CASE STATUS: ",$G(^UTILITY("DIQ1",$J,912,DA,.08,"E"))
  • Line Location: DISPLAY+13
Function Call: WRITE
  • Prompt: ?45,"COMPLETED FLAG: ",$G(^UTILITY("DIQ1",$J,912,DA,5.02,"E"))
  • Line Location: DISPLAY+14
Function Call: WRITE
  • Prompt: ?45,"DATE/TIME: ",$G(^UTILITY("DIQ1",$J,912,DA,5.06,"E"))
  • Line Location: DISPLAY+18
Function Call: WRITE
  • Prompt: ?45,"DATE/TIME: ",^UTILITY("DIQ1",$J,912,DA,6.02,"E"),!?45,"PREVIOUS ID#: ",$G(^UTILITY("DIQ1",$J,912,DA,6.01,"E"))
  • Line Location: DISPLAY+19
Function Call: WRITE
  • Prompt: !,"LOST/STOLEN PROPERTY:"
  • Line Location: DISPLAY+20
Function Call: WRITE
  • Prompt: "/",^("E")
  • Line Location: DISPLAY+38
Function Call: WRITE
  • Prompt: "/",^("E")
  • Line Location: DISPLAY+39
Function Call: WRITE
  • Prompt: !,?NUML,"Converted by: ",$E($P($G(^VA(200,ESUSER,0)),U,1),1,20),?45,"Date/time: ",ESCNVDT
  • Line Location: DISPLAY+40
Function Call: WRITE
  • Prompt: "/",^("E")
  • Line Location: DISPLAY+44
Function Call: WRITE
  • Prompt: "/",^("E")
  • Line Location: DISPLAY+45
Function Call: WRITE
  • Prompt: !,LN,!
  • Line Location: DISPLAY+46
Function Call: WRITE
  • Prompt: !!,"You may modify the following sub-record(s) -- ",!
  • Line Location: UPDATE+4
Function Call: WRITE
  • Prompt: !?5,"Sub-record #",?25,"Current Subtype"
  • Line Location: UPDATE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: UPDATE+10
Function Call: WRITE
  • Prompt: !
  • Line Location: UPDATE+10
Function Call: WRITE
  • Prompt: !
  • Line Location: UPDATE+24
Function Call: WRITE
  • Prompt: !!,"...done.",!
  • Line Location: UPDATE+42
Function Call: WRITE
  • Prompt: !!
  • Line Location: UPDATE+43

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ESP(912 - [#912] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call