| 1 | ESPOFP ;DALISC/CKA - PRINT OFFENSE REPORT FOLLOW-UP NOTES ONLY;3/99
|
---|
| 2 | ;;1.0;POLICE & SECURITY;**14,27,42**;Mar 31, 1994
|
---|
| 3 | EN ;Entry point to print follow-up notes of only completed and nonsensitive reports.
|
---|
| 4 | D DT^DICRW
|
---|
| 5 | 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,"
|
---|
| 6 | D ^DIC
|
---|
| 7 | G:$D(DTOUT)!($D(DUOUT))!(X="") EXIT
|
---|
| 8 | I Y<0 W !,$C(7),"UOR# not found. Please try again." G OR
|
---|
| 9 | S ESPDTR=$P(^ESP(912,+Y,0),U,2),ESPID=+Y
|
---|
| 10 | Q S %ZIS="Q" D ^%ZIS G:POP EXIT I '$D(IO("Q")) U IO D START G EXIT
|
---|
| 11 | S ZTRTN="START^ESPOFP",ZTSAVE("ESP*")="",ZTDESC="FOLLOW-UP NOTES" D ^%ZTLOAD,HOME^%ZIS G EXIT
|
---|
| 12 | START ; BEGINS THE PRINT OF THESE FOLLOW-UP NOTES
|
---|
| 13 | N ESPFACI
|
---|
| 14 | K ^UTILITY("DIQ1",$J) S (END,PAGE)=0 D HDR G:END EXIT
|
---|
| 15 | FOL ;PRINT FOLLOW-UP NOTES
|
---|
| 16 | G:'$D(^ESP(912,ESPID,130)) EXIT
|
---|
| 17 | F ESPN=0:0 S ESPN=$O(^ESP(912,ESPID,130,ESPN)) Q:ESPN'>0 D
|
---|
| 18 | . D HDR:$Y+5>IOSL&(ESPN'=1) Q:END
|
---|
| 19 | . W !,"FOLLOW-UP NOTES:",!!
|
---|
| 20 | . K ^UTILITY($J,"W") S DIWL=3,DIWR=78,DIWF="W",IEN=0
|
---|
| 21 | . F ESPN1=1:1 S IEN=$O(^ESP(912,ESPID,130,ESPN,10,IEN)) Q:IEN'>0 S X=^(IEN,0) D Q:END
|
---|
| 22 | . . D HDR:$Y+5>IOSL Q:END
|
---|
| 23 | . . D ^DIWP
|
---|
| 24 | . Q:END
|
---|
| 25 | . D ^DIWW
|
---|
| 26 | . S DIC="^ESP(912,"_ESPID_",130,",DA=ESPN,DR=".01",DIQ(0)="I" D EN^DIQ1
|
---|
| 27 | . S ESPOFF=$G(^UTILITY("DIQ1",$J,912.17,DA,.01,"I"))
|
---|
| 28 | . S DIC="^VA(200,",DA=ESPOFF,DR="20.2;910.1",DIQ(0)="E" D EN^DIQ1
|
---|
| 29 | . W !!!!
|
---|
| 30 | . D HDR:$Y+10>IOSL Q:END
|
---|
| 31 | . W !,$G(^UTILITY("DIQ1",$J,200,DA,20.2,"E"))," # ",$G(^UTILITY("DIQ1",$J,200,DA,910.1,"E")),!,"FOLLOW-UP INVESTIGATOR",!!!!!
|
---|
| 32 | EXIT D ^%ZISC
|
---|
| 33 | K %ZIS,CL,DA,DIC,DIQ,DIR,DIRUT,DIWF,DIWL,DIWR,DR,END,ESPDTR,ESPID,ESPN,ESPN1,IEN,PAGE,X,Y,ZTDESC,ZTRTN,ZTSAVE
|
---|
| 34 | K ^UTILITY("DIQ1",$J)
|
---|
| 35 | QUIT
|
---|
| 36 | HDR ;PRINT HEADING
|
---|
| 37 | I PAGE>0,$E(IOST,1,2)="C-" S END=$$EOP^ESPUTIL() Q:END
|
---|
| 38 | S PAGE=PAGE+1 W @IOF,!?25,"DEPARTMENT OF VETERANS AFFAIRS",?(IOM-10),"PAGE: ",$J(PAGE,3)
|
---|
| 39 | W !?35,"VA POLICE",!?28,"UNIFORM OFFENSE REPORT"
|
---|
| 40 | 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)
|
---|
| 41 | W !,"VA Facility" W ?61,"Date/Time Printed"
|
---|
| 42 | S ESPFACI=$P(^ESP(912,ESPID,0),U,7) S ESPFACI=$S(ESPFACI="":"",$D(^DG(40.8,ESPFACI,0)):$P(^(0),U),1:"")
|
---|
| 43 | I ESPFACI="",$D(^ESP(912,ESPID,5)),$P(^(5),U)'="" S ESPFACI=$S($D(^DIC(4,$P(^(5),U),0)):$P(^(0),U),1:"")
|
---|
| 44 | W !,ESPFACI
|
---|
| 45 | ;I $D(^ESP(912,ESPID,5)),$P(^(5),U)'="" W !,$S($D(^DIC(4,$P(^(5),U),0)):$P(^(0),U),1:"")
|
---|
| 46 | W ?61,$$NOW^ESPUTIL()
|
---|
| 47 | W !,"Automated VA Form 10-1393"
|
---|
| 48 | W !!
|
---|
| 49 | QUIT
|
---|
| 50 | ;
|
---|
| 51 | ;ENTRY POINT OR1 IS TO ALLOWS PRINT OF AN INCOMPLETE REPORT
|
---|
| 52 | ;THIS OPTION IS ONLY FOR PERSONS HOLDING THE CHIEF KEY
|
---|
| 53 | OR1 S DIC(0)="QAEMZ",DIC("A")="UOR#: ",DIC("S")="I $D(^(5)),$P(^(5),U,5)",DIC="^ESP(912,"
|
---|
| 54 | D ^DIC G:$D(DTOUT)!($D(DUOUT))!(X="") EXIT G:Y<0 OR1 S ESPDTR=$P(^ESP(912,+Y,0),U,2),ESPID=+Y
|
---|
| 55 | D Q
|
---|
| 56 | QUIT
|
---|