source: WorldVistAEHR/trunk/r/POLICE_AND_SECURITY-ES/ESPORM5.m@ 1639

Last change on this file since 1639 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 3.2 KB
Line 
1ESPORM5 ;DALISC/CKA - OFFENSE REPORT IN MAIL MESSAGE CONT. ;4/93
2 ;;1.0;POLICE & SECURITY;;Mar 31, 1994
3EN ;CONTINUED FROME ESPORM4
4NARR ;PRINT NARRATIVE
5 D HDR S ESPX=""
6 F I=1:1:18 S ESPX=ESPX_"* "
7 S ESPX=ESPX_"NARRATIVE" F I=1:1:17 S ESPX=ESPX_" *"
8 D MSG
9 S IEN=0,ESPX=" " D MSG S ESPX=$E(SPACES,1,3)_"ORIGIN:" D MSG F ESPN=1:1:2 S ESPX=" " D MSG
10 F ESPN=1:1 S IEN=$O(^ESP(912,ESPID,70,IEN)) Q:IEN'>0 S ESPX=$E(SPACES,1,3)_^(IEN,0) D MSG
11 S IEN=0,ESPX=" " D MSG S ESPX=$E(SPACES,1,3)_"INITIAL OBSERVATION:" D MSG F ESPN=1:1:2 S ESPX=" " D MSG
12 F ESPN=1:1 S IEN=$O(^ESP(912,ESPID,72,IEN)) Q:IEN'>0 S ESPX=$E(SPACES,1,3)_^(IEN,0) D MSG
13 S IEN=0,ESPX=" " D MSG S ESPX=$E(SPACES,1,3)_"INVESTIGATION:" D MSG S ESPX=" " D MSG
14 F ESPN=1:1 S IEN=$O(^ESP(912,ESPID,73,IEN)) Q:IEN'>0 S ESPX=$E(SPACES,1,3)_^(IEN,0) D MSG
15 S IEN=0,ESPX=" " D MSG S ESPX=$E(SPACES,1,3)_"DISPOSITION:" D MSG F ESPN=1:1:2 S ESPX=" " D MSG
16 F ESPN=1:1 S IEN=$O(^ESP(912,ESPID,74,IEN)) Q:IEN'>0 S ESPX=$E(SPACES,1,3)_^(IEN,0) D MSG
17SIG D HDR:$Y+5>IOSL
18 F ESPN=1:1:4 S ESPX=" " D MSG
19 S DIC="^ESP(912,",DA=ESPID,DR=".06",DIQ(0)="I" D EN^DIQ1
20 S ESPOFF=$G(^UTILITY("DIQ1",$J,912,DA,.06,"I")),DIC="^VA(200,",DA=ESPOFF,DR="20.2;910.1",DIQ(0)="E" D EN^DIQ1
21 S ESPX=$G(^UTILITY("DIQ1",$J,200,DA,20.2,"E"))_" # "_$G(^UTILITY("DIQ1",$J,200,DA,910.1,"E")) D MSG S ESPX=" " D MSG S ESPX="INVESTIGATING OFFICER" D MSG
22 F ESPN=1:1:5 S ESPX=" " D MSG
23FOL ;PRINT FOLLOW-UP NOTES
24 G:'$D(^ESP(912,ESPID,130)) SEND
25 D HDR
26 F ESPN=0:0 S ESPN=$O(^ESP(912,ESPID,130,ESPN)) Q:ESPN'>0 D
27 . D HDR:$Y+5>IOSL&(ESPN'=1)
28 . S IEN=0,ESPX=" " D MSG S ESPX=$E(SPACES,1,3)_"FOLLOW-UP NOTES:" D MSG F ESPZ=1:1:2 S ESPX=" " D MSG
29 . F ESPN1=1:1 S IEN=$O(^ESP(912,ESPID,130,ESPN,10,IEN)) Q:IEN'>0 S ESPX=$E(SPACES,1,3)_^(IEN,0) D MSG
30 . S DIC="^ESP(912,"_ESPID_",130,",DA=ESPN,DR=".01",DIQ(0)="I" D EN^DIQ1
31 . S ESPOFF=$G(^UTILITY("DIQ1",$J,912.17,DA,.01,"I"))
32 . S DIC="^VA(200,",DA=ESPOFF,DR="20.2;910.1",DIQ(0)="E" D EN^DIQ1
33 . S ESPX=" " D MSG S ESPX=" " D MSG S ESPX=" " D MSG S ESPX=" " D MSG
34 . S ESPX=$G(^UTILITY("DIQ1",$J,200,DA,20.2,"E"))_" # "_$G(^UTILITY("DIQ1",$J,200,DA,910.1,"E")) D MSG S ESPX="FOLLOW-UP INVESTIGATOR" D MSG
35 . S ESPX=" " D MSG S ESPX=" " D MSG S ESPX=" " D MSG S ESPX=" " D MSG
36 W !,"COMPLETED."
37SEND S XMSUB="UOR"_$E(ESPDTR,4,5)_"-"_$E(ESPDTR,6,7)_"-"_$TR($E($P(ESPDTR,".",2)_"ZZZZ",1,4),"Z",0)
38 S XMTEXT="^TMP($J,""UORM"","
39 S XMDUN="Police & Security Package"
40 D ^XMD
41EXIT K DA,DIC,DIQ,DIRUT,ESPDOB,ESPDOBP,DR,DTOUT,DUOUT,ESPDTR,ESPFN,ESPI,ESPID,ESPL,ESPN,ESPN1,ESPOFF,ESPX,ESPZ,I,IEN,PAGE,SPACES,SSN,X,X1,X2,XMDUN,XMSUB,XMTEXT,Y
42 K ^UTILITY("DIQ1",$J),^TMP($J,"UORM")
43 QUIT
44HDR ;PRINT HEADING
45 S PAGE=PAGE+1 S ESPX=$E(SPACES,1,25)_"DEPARTMENT OF VETERANS AFFAIRS"_$E(SPACES,1,IOM-10)_"PAGE: "_$J(PAGE,3)
46 D MSG
47 S ESPX=$E(SPACES,1,35)_"VA POLICE"
48 S ESPX=$E(SPACES,1,28)_"UNIFORM OFFENSE REPORT"
49 D MSG
50 S ESPX=$E(SPACES,1,30)_"UOR# "_$E(ESPDTR,2,3)_"-"_$E(ESPDTR,4,5)_"-"_$E(ESPDTR,6,7)_"-"_$TR($E($P(ESPDTR,".",2)_"ZZZZ",1,4),"Z",0)
51 D MSG
52 S ESPX="VA Facility" D MSG
53 I $D(^ESP(912,ESPID,5)),$P(^(5),U)'="" S ESPX=$S($D(^DIC(4,$P(^(5),U),0)):$P(^(0),U),1:"") D MSG
54 S ESPX="Automated VA Form 10-1393" D MSG
55 F ESPI=1:1:2 S ESPX=" " D MSG
56 QUIT
57MSG S ^TMP($J,"UORM",ESPL)=ESPX,ESPL=ESPL+1
58 QUIT
Note: See TracBrowser for help on using the repository browser.