source: FOIAVistA/trunk/r/ASISTS-OOPS/OOPSESR.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 1.7 KB
Line 
1OOPSESR ;WIOFO/CAH-EDIT STUB RECORD ;12/14/99
2 ;;2.0;ASISTS;;Jun 03, 2002
3EN1(CALLER) ;Entry for Edit Stub Routine
4 N DIC,Y
5 S DIC("S")="I '(+$TR($$SIGNED^OOPSESR(Y),""^""))"
6 S DIC="^OOPS(2260,",DIC(0)="AEMZ" D ^DIC Q:Y=-1
7 K DIC
8 S IEN=+Y
9 Q:'IEN
10EDIT ;EDIT STUB
11 D ^OOPSDIS
12 S DA=IEN,DR="",DIE=2260
13 N REC,NDR S REC=DA
14 S DR(1,2260,5)="3 1. TYPE OF INCIDENT..........."
15 S DR(1,2260,10)="6 2. DATE OF BIRTH.............."
16 S DR(1,2260,15)="5 3. SSN........................"
17 S DR(1,2260,20)="7 4. SEX........................"
18 S DR(1,2260,25)="8 5. HOME STREET ADDRESS........"
19 S DR(1,2260,26)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=8"
20 S DR(1,2260,30)="9 6. CITY......................."
21 S DR(1,2260,31)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=9"
22 S DR(1,2260,35)="10 7. STATE......................"
23 S DR(1,2260,40)="11 8. ZIP CODE..................."
24 S DR(1,2260,45)="12 9. HOME PHONE NUMBER.........."
25 ; Patch 8 - add error checking for DOL requirement
26 S DR(1,2260,46)="I $TR(X,""/-*#"","""")'?10N W !?3,""Phone number must include area code and 7 digits only. Example 703-123-8789"" S Y=12"
27 S DR(1,2260,50)="13 10. STATION NUMBER............."
28 S DR(1,2260,55)="53 11. SUPERVISOR................."
29 S DR(1,2260,60)="53.1 12. SECONDARY SUPERVISOR......."
30 S NDR=DR
31 L +^OOPS(2260,DA):2
32 I $T D ^DIE
33 L -^OOPS(2260,REC)
34 E W !,"File is currently locked by another user"
35 K DA,DR,DIE,REC,NDR
36 Q
37SIGNED(IEN) ;Check to see if 2162, CA1 or CA2 is signed.
38 N CHECK
39 S CHECK=""
40 F I=45,49,120,170,222,266 D
41 .S CHECK=CHECK_$S($$GET1^DIQ(2260,IEN,I,"I")'="":1,1:0)_U
42 Q CHECK
Note: See TracBrowser for help on using the repository browser.