OOPSESR ;WIOFO/CAH-EDIT STUB RECORD ;12/14/99
;;2.0;ASISTS;;Jun 03, 2002
EN1(CALLER) ;Entry for Edit Stub Routine
N DIC,Y
S DIC("S")="I '(+$TR($$SIGNED^OOPSESR(Y),""^""))"
S DIC="^OOPS(2260,",DIC(0)="AEMZ" D ^DIC Q:Y=-1
K DIC
S IEN=+Y
Q:'IEN
EDIT ;EDIT STUB
D ^OOPSDIS
S DA=IEN,DR="",DIE=2260
N REC,NDR S REC=DA
S DR(1,2260,5)="3 1. TYPE OF INCIDENT..........."
S DR(1,2260,10)="6 2. DATE OF BIRTH.............."
S DR(1,2260,15)="5 3. SSN........................"
S DR(1,2260,20)="7 4. SEX........................"
S DR(1,2260,25)="8 5. HOME STREET ADDRESS........"
S DR(1,2260,26)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=8"
S DR(1,2260,30)="9 6. CITY......................."
S DR(1,2260,31)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=9"
S DR(1,2260,35)="10 7. STATE......................"
S DR(1,2260,40)="11 8. ZIP CODE..................."
S DR(1,2260,45)="12 9. HOME PHONE NUMBER.........."
; Patch 8 - add error checking for DOL requirement
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"
S DR(1,2260,50)="13 10. STATION NUMBER............."
S DR(1,2260,55)="53 11. SUPERVISOR................."
S DR(1,2260,60)="53.1 12. SECONDARY SUPERVISOR......."
S NDR=DR
L +^OOPS(2260,DA):2
I $T D ^DIE
L -^OOPS(2260,REC)
E W !,"File is currently locked by another user"
K DA,DR,DIE,REC,NDR
Q
SIGNED(IEN) ;Check to see if 2162, CA1 or CA2 is signed.
N CHECK
S CHECK=""
F I=45,49,120,170,222,266 D
.S CHECK=CHECK_$S($$GET1^DIQ(2260,IEN,I,"I")'="":1,1:0)_U
Q CHECK
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOOPSESR 1817 printed Dec 13, 2024@01:38:55 Page 2
OOPSESR ;WIOFO/CAH-EDIT STUB RECORD ;12/14/99
+1 ;;2.0;ASISTS;;Jun 03, 2002
EN1(CALLER) ;Entry for Edit Stub Routine
+1 NEW DIC,Y
+2 SET DIC("S")="I '(+$TR($$SIGNED^OOPSESR(Y),""^""))"
+3 SET DIC="^OOPS(2260,"
SET DIC(0)="AEMZ"
DO ^DIC
if Y=-1
QUIT
+4 KILL DIC
+5 SET IEN=+Y
+6 if 'IEN
QUIT
EDIT ;EDIT STUB
+1 DO ^OOPSDIS
+2 SET DA=IEN
SET DR=""
SET DIE=2260
+3 NEW REC,NDR
SET REC=DA
+4 SET DR(1,2260,5)="3 1. TYPE OF INCIDENT..........."
+5 SET DR(1,2260,10)="6 2. DATE OF BIRTH.............."
+6 SET DR(1,2260,15)="5 3. SSN........................"
+7 SET DR(1,2260,20)="7 4. SEX........................"
+8 SET DR(1,2260,25)="8 5. HOME STREET ADDRESS........"
+9 SET DR(1,2260,26)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=8"
+10 SET DR(1,2260,30)="9 6. CITY......................."
+11 SET DR(1,2260,31)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=9"
+12 SET DR(1,2260,35)="10 7. STATE......................"
+13 SET DR(1,2260,40)="11 8. ZIP CODE..................."
+14 SET DR(1,2260,45)="12 9. HOME PHONE NUMBER.........."
+15 ; Patch 8 - add error checking for DOL requirement
+16 SET 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"
+17 SET DR(1,2260,50)="13 10. STATION NUMBER............."
+18 SET DR(1,2260,55)="53 11. SUPERVISOR................."
+19 SET DR(1,2260,60)="53.1 12. SECONDARY SUPERVISOR......."
+20 SET NDR=DR
+21 LOCK +^OOPS(2260,DA):2
+22 IF $TEST
DO ^DIE
+23 LOCK -^OOPS(2260,REC)
+24 IF '$TEST
WRITE !,"File is currently locked by another user"
+25 KILL DA,DR,DIE,REC,NDR
+26 QUIT
SIGNED(IEN) ;Check to see if 2162, CA1 or CA2 is signed.
+1 NEW CHECK
+2 SET CHECK=""
+3 FOR I=45,49,120,170,222,266
Begin DoDot:1
+4 SET CHECK=CHECK_$SELECT($$GET1^DIQ(2260,IEN,I,"I")'="":1,1:0)_U
End DoDot:1
+5 QUIT CHECK
