ESPOFP ;DALISC/CKA - PRINT OFFENSE REPORT FOLLOW-UP NOTES ONLY;3/99
;;1.0;POLICE & SECURITY;**14,27,42**;Mar 31, 1994
EN ;Entry point to print follow-up notes of only completed and nonsensitive reports.
D DT^DICRW
OR S DIC(0)="QAEMZ",DIC("A")="UOR#: ",DIC("S")="I $D(^(5)),$P(^(5),U,2),'$P(^(5),U,4),$P(^(5),U,5)",DIC="^ESP(912,"
D ^DIC
G:$D(DTOUT)!($D(DUOUT))!(X="") EXIT
I Y<0 W !,$C(7),"UOR# not found. Please try again." G OR
S ESPDTR=$P(^ESP(912,+Y,0),U,2),ESPID=+Y
Q S %ZIS="Q" D ^%ZIS G:POP EXIT I '$D(IO("Q")) U IO D START G EXIT
S ZTRTN="START^ESPOFP",ZTSAVE("ESP*")="",ZTDESC="FOLLOW-UP NOTES" D ^%ZTLOAD,HOME^%ZIS G EXIT
START ; BEGINS THE PRINT OF THESE FOLLOW-UP NOTES
N ESPFACI
K ^UTILITY("DIQ1",$J) S (END,PAGE)=0 D HDR G:END EXIT
FOL ;PRINT FOLLOW-UP NOTES
G:'$D(^ESP(912,ESPID,130)) EXIT
F ESPN=0:0 S ESPN=$O(^ESP(912,ESPID,130,ESPN)) Q:ESPN'>0 D
. D HDR:$Y+5>IOSL&(ESPN'=1) Q:END
. W !,"FOLLOW-UP NOTES:",!!
. K ^UTILITY($J,"W") S DIWL=3,DIWR=78,DIWF="W",IEN=0
. F ESPN1=1:1 S IEN=$O(^ESP(912,ESPID,130,ESPN,10,IEN)) Q:IEN'>0 S X=^(IEN,0) D Q:END
. . D HDR:$Y+5>IOSL Q:END
. . D ^DIWP
. Q:END
. D ^DIWW
. S DIC="^ESP(912,"_ESPID_",130,",DA=ESPN,DR=".01",DIQ(0)="I" D EN^DIQ1
. S ESPOFF=$G(^UTILITY("DIQ1",$J,912.17,DA,.01,"I"))
. S DIC="^VA(200,",DA=ESPOFF,DR="20.2;910.1",DIQ(0)="E" D EN^DIQ1
. W !!!!
. D HDR:$Y+10>IOSL Q:END
. W !,$G(^UTILITY("DIQ1",$J,200,DA,20.2,"E"))," # ",$G(^UTILITY("DIQ1",$J,200,DA,910.1,"E")),!,"FOLLOW-UP INVESTIGATOR",!!!!!
EXIT D ^%ZISC
K %ZIS,CL,DA,DIC,DIQ,DIR,DIRUT,DIWF,DIWL,DIWR,DR,END,ESPDTR,ESPID,ESPN,ESPN1,IEN,PAGE,X,Y,ZTDESC,ZTRTN,ZTSAVE
K ^UTILITY("DIQ1",$J)
QUIT
HDR ;PRINT HEADING
I PAGE>0,$E(IOST,1,2)="C-" S END=$$EOP^ESPUTIL() Q:END
S PAGE=PAGE+1 W @IOF,!?25,"DEPARTMENT OF VETERANS AFFAIRS",?(IOM-10),"PAGE: ",$J(PAGE,3)
W !?35,"VA POLICE",!?28,"UNIFORM OFFENSE REPORT"
W !?30,"UOR# ",$E(ESPDTR,2,3),"-",$E(ESPDTR,4,5),"-",$E(ESPDTR,6,7),"-",$TR($E($P(ESPDTR,".",2)_"ZZZZ",1,4),"Z",0)
W !,"VA Facility" W ?61,"Date/Time Printed"
S ESPFACI=$P(^ESP(912,ESPID,0),U,7) S ESPFACI=$S(ESPFACI="":"",$D(^DG(40.8,ESPFACI,0)):$P(^(0),U),1:"")
I ESPFACI="",$D(^ESP(912,ESPID,5)),$P(^(5),U)'="" S ESPFACI=$S($D(^DIC(4,$P(^(5),U),0)):$P(^(0),U),1:"")
W !,ESPFACI
;I $D(^ESP(912,ESPID,5)),$P(^(5),U)'="" W !,$S($D(^DIC(4,$P(^(5),U),0)):$P(^(0),U),1:"")
W ?61,$$NOW^ESPUTIL()
W !,"Automated VA Form 10-1393"
W !!
QUIT
;
;ENTRY POINT OR1 IS TO ALLOWS PRINT OF AN INCOMPLETE REPORT
;THIS OPTION IS ONLY FOR PERSONS HOLDING THE CHIEF KEY
OR1 S DIC(0)="QAEMZ",DIC("A")="UOR#: ",DIC("S")="I $D(^(5)),$P(^(5),U,5)",DIC="^ESP(912,"
D ^DIC G:$D(DTOUT)!($D(DUOUT))!(X="") EXIT G:Y<0 OR1 S ESPDTR=$P(^ESP(912,+Y,0),U,2),ESPID=+Y
D Q
QUIT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HESPOFP 2805 printed Oct 16, 2024@18:30:42 Page 2
ESPOFP ;DALISC/CKA - PRINT OFFENSE REPORT FOLLOW-UP NOTES ONLY;3/99
+1 ;;1.0;POLICE & SECURITY;**14,27,42**;Mar 31, 1994
EN ;Entry point to print follow-up notes of only completed and nonsensitive reports.
+1 DO DT^DICRW
OR SET DIC(0)="QAEMZ"
SET DIC("A")="UOR#: "
SET DIC("S")="I $D(^(5)),$P(^(5),U,2),'$P(^(5),U,4),$P(^(5),U,5)"
SET DIC="^ESP(912,"
+1 DO ^DIC
+2 if $DATA(DTOUT)!($DATA(DUOUT))!(X="")
GOTO EXIT
+3 IF Y<0
WRITE !,$CHAR(7),"UOR# not found. Please try again."
GOTO OR
+4 SET ESPDTR=$PIECE(^ESP(912,+Y,0),U,2)
SET ESPID=+Y
Q SET %ZIS="Q"
DO ^%ZIS
if POP
GOTO EXIT
IF '$DATA(IO("Q"))
USE IO
DO START
GOTO EXIT
+1 SET ZTRTN="START^ESPOFP"
SET ZTSAVE("ESP*")=""
SET ZTDESC="FOLLOW-UP NOTES"
DO ^%ZTLOAD
DO HOME^%ZIS
GOTO EXIT
START ; BEGINS THE PRINT OF THESE FOLLOW-UP NOTES
+1 NEW ESPFACI
+2 KILL ^UTILITY("DIQ1",$JOB)
SET (END,PAGE)=0
DO HDR
if END
GOTO EXIT
FOL ;PRINT FOLLOW-UP NOTES
+1 if '$DATA(^ESP(912,ESPID,130))
GOTO EXIT
+2 FOR ESPN=0:0
SET ESPN=$ORDER(^ESP(912,ESPID,130,ESPN))
if ESPN'>0
QUIT
Begin DoDot:1
+3 if $Y+5>IOSL&(ESPN'=1)
DO HDR
if END
QUIT
+4 WRITE !,"FOLLOW-UP NOTES:",!!
+5 KILL ^UTILITY($JOB,"W")
SET DIWL=3
SET DIWR=78
SET DIWF="W"
SET IEN=0
+6 FOR ESPN1=1:1
SET IEN=$ORDER(^ESP(912,ESPID,130,ESPN,10,IEN))
if IEN'>0
QUIT
SET X=^(IEN,0)
Begin DoDot:2
+7 if $Y+5>IOSL
DO HDR
if END
QUIT
+8 DO ^DIWP
End DoDot:2
if END
QUIT
+9 if END
QUIT
+10 DO ^DIWW
+11 SET DIC="^ESP(912,"_ESPID_",130,"
SET DA=ESPN
SET DR=".01"
SET DIQ(0)="I"
DO EN^DIQ1
+12 SET ESPOFF=$GET(^UTILITY("DIQ1",$JOB,912.17,DA,.01,"I"))
+13 SET DIC="^VA(200,"
SET DA=ESPOFF
SET DR="20.2;910.1"
SET DIQ(0)="E"
DO EN^DIQ1
+14 WRITE !!!!
+15 if $Y+10>IOSL
DO HDR
if END
QUIT
+16 WRITE !,$GET(^UTILITY("DIQ1",$JOB,200,DA,20.2,"E"))," # ",$GET(^UTILITY("DIQ1",$JOB,200,DA,910.1,"E")),!,"FOLLOW-UP INVESTIGATOR",!!!!!
End DoDot:1
EXIT DO ^%ZISC
+1 KILL %ZIS,CL,DA,DIC,DIQ,DIR,DIRUT,DIWF,DIWL,DIWR,DR,END,ESPDTR,ESPID,ESPN,ESPN1,IEN,PAGE,X,Y,ZTDESC,ZTRTN,ZTSAVE
+2 KILL ^UTILITY("DIQ1",$JOB)
+3 QUIT
HDR ;PRINT HEADING
+1 IF PAGE>0
IF $EXTRACT(IOST,1,2)="C-"
SET END=$$EOP^ESPUTIL()
if END
QUIT
+2 SET PAGE=PAGE+1
WRITE @IOF,!?25,"DEPARTMENT OF VETERANS AFFAIRS",?(IOM-10),"PAGE: ",$JUSTIFY(PAGE,3)
+3 WRITE !?35,"VA POLICE",!?28,"UNIFORM OFFENSE REPORT"
+4 WRITE !?30,"UOR# ",$EXTRACT(ESPDTR,2,3),"-",$EXTRACT(ESPDTR,4,5),"-",$EXTRACT(ESPDTR,6,7),"-",$TRANSLATE($EXTRACT($PIECE(ESPDTR,".",2)_"ZZZZ",1,4),"Z",0)
+5 WRITE !,"VA Facility"
WRITE ?61,"Date/Time Printed"
+6 SET ESPFACI=$PIECE(^ESP(912,ESPID,0),U,7)
SET ESPFACI=$SELECT(ESPFACI="":"",$DATA(^DG(40.8,ESPFACI,0)):$PIECE(^(0),U),1:"")
+7 IF ESPFACI=""
IF $DATA(^ESP(912,ESPID,5))
IF $PIECE(^(5),U)'=""
SET ESPFACI=$SELECT($DATA(^DIC(4,$PIECE(^(5),U),0)):$PIECE(^(0),U),1:"")
+8 WRITE !,ESPFACI
+9 ;I $D(^ESP(912,ESPID,5)),$P(^(5),U)'="" W !,$S($D(^DIC(4,$P(^(5),U),0)):$P(^(0),U),1:"")
+10 WRITE ?61,$$NOW^ESPUTIL()
+11 WRITE !,"Automated VA Form 10-1393"
+12 WRITE !!
+13 QUIT
+14 ;
+15 ;ENTRY POINT OR1 IS TO ALLOWS PRINT OF AN INCOMPLETE REPORT
+16 ;THIS OPTION IS ONLY FOR PERSONS HOLDING THE CHIEF KEY
OR1 SET DIC(0)="QAEMZ"
SET DIC("A")="UOR#: "
SET DIC("S")="I $D(^(5)),$P(^(5),U,5)"
SET DIC="^ESP(912,"
+1 DO ^DIC
if $DATA(DTOUT)!($DATA(DUOUT))!(X="")
GOTO EXIT
if Y<0
GOTO OR1
SET ESPDTR=$PIECE(^ESP(912,+Y,0),U,2)
SET ESPID=+Y
+2 DO Q
+3 QUIT
