- 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 Mar 13, 2025@20:43:35 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
