| 1 | OOPSESR ;WIOFO/CAH-EDIT STUB RECORD ;12/14/99
|
|---|
| 2 | ;;2.0;ASISTS;;Jun 03, 2002
|
|---|
| 3 | EN1(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
|
|---|
| 10 | EDIT ;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
|
|---|
| 37 | SIGNED(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
|
|---|
