Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: OOPSUTL5

OOPSUTL5.m

Go to the documentation of this file.
  1. OOPSUTL5 ;WIOFO/CAH-Utilities Routine ;4/6/00
  1. ;;2.0;ASISTS;;Jun 03, 2002
  1. VAL(IEN) ; Validation for required fields for DOL transmission
  1. ;
  1. ; Input: IEN = Internal Entry Number of entry in file 2260
  1. ; Output: VAL = 1 Valid to be transmitted to DOL
  1. ; = "" Invalid to be transmitted
  1. ; NULL(#)= List of invalid fields
  1. K NULL
  1. N DATA,NAM,WITN,WITN0,WITN1
  1. S VAL=1
  1. F FLD=1,4,5,6,7,8,9,10,11,13,15,30,60,62,67,68,70,73 D
  1. .I $$GET1^DIQ(2260,IEN,FLD)="" S NULL(FLD)=$$GET1^DID(2260,FLD,"","LABEL")
  1. I $P($G(^OOPS(2260,IEN,"CA")),U,4)=3 D
  1. .I $$GET1^DIQ(2260,IEN,61)="" S NULL(61)=$$GET1^DID(2260,61,,"LABEL")
  1. I $$GET1^DIQ(2260,IEN,52,"I")=1 D
  1. .I $$GET1^DIQ(2260,IEN,146,"I")="N" D
  1. ..I $$GET1^DIQ(2260,IEN,147)="" S NULL(147)=$$GET1^DID(2260,147,,"LABEL")
  1. .I $$GET1^DIQ(2260,IEN,148,"I")="Y" D
  1. ..I $$GET1^DIQ(2260,IEN,149)="" S NULL(149)=$$GET1^DID(2260,149,,"LABEL")
  1. .F FLD=108,110,111,112,114,120,126,130,131,132,133,134,140,162,169,170,171,172,173,174,175,176,177,180,181,183,184,185 D
  1. ..I $$GET1^DIQ(2260,IEN,FLD)="" S NULL(FLD)=$$GET1^DID(2260,FLD,,"LABEL")
  1. .I $$GET1^DIQ(2260,IEN,150,"I")="Y" F FLD=151:1:155 D
  1. ..I $$GET1^DIQ(2260,IEN,FLD)="" S NULL(FLD)=$$GET1^DID(2260,FLD,,"LABEL")
  1. .I $$GET1^DIQ(2260,IEN,2,"I")=1 F FLD=166,167 D
  1. ..I $$GET1^DIQ(2260,IEN,FLD)="" S NULL(FLD)=$$GET1^DID(2260,FLD,,"LABEL")
  1. .I $P($G(^OOPS(2260,IEN,"CA1I")),U)'="" D
  1. ..S NAM=$P(^OOPS(2260,IEN,"CA1I"),U) I '$$NMCHK^OOPSUTL3(NAM) S NULL(156)="Invalid Physician Name format."
  1. ..I $$GET1^DIQ(2260,IEN,157)="" S NULL(157)=$$GET1^DID(2260,157,,"LABEL")
  1. ..I $$GET1^DIQ(2260,IEN,158)="" S NULL(158)=$$GET1^DID(2260,158,,"LABEL")
  1. ..I $$GET1^DIQ(2260,IEN,159)="" S NULL(159)=$$GET1^DID(2260,159,,"LABEL")
  1. ..I $$GET1^DIQ(2260,IEN,160)="" S NULL(160)=$$GET1^DID(2260,160,,"LABEL")
  1. ..I $$GET1^DIQ(2260,IEN,182)="" S NULL(182)=$$GET1^DID(2260,182,,"LABEL")
  1. .; check witness data
  1. .S WITN=$O(^OOPS(2260,IEN,"CA1W",0))
  1. .I $G(WITN) D
  1. ..S WITN0=$G(^OOPS(2260,IEN,"CA1W",WITN,0))
  1. ..S WITN1=$G(^OOPS(2260,IEN,"CA1W",WITN,1))
  1. ..I '$$NMCHK^OOPSUTL3($P(WITN0,U)) S NULL(125.01)="Invalid Witness Name format."
  1. ..I $P(WITN0,U,2)="" S NULL(125.1)=$$GET1^DID(2260.0125,1,,"LABEL")
  1. ..I $P(WITN0,U,3)="" S NULL(125.2)=$$GET1^DID(2260.0125,2,,"LABEL")
  1. ..I $P(WITN0,U,4)="" S NULL(125.3)=$$GET1^DID(2260.0125,3,,"LABEL")
  1. ..I $P(WITN0,U,5)="" S NULL(125.4)=$$GET1^DID(2260.0125,4,,"LABEL")
  1. ..I $P(WITN0,U,6)="" S NULL(125.5)=$$GET1^DID(2260.0125,5,,"LABEL")
  1. ..I $G(WITN1)="" S NULL(125.6)=$$GET1^DID(2260.0125,6,,"LABEL")
  1. .I $$WP^OOPSUTL4(165)>528 S NULL(165)=" REASON FOR CONTROVERT COP exceeds 528 character limit set by DOL."
  1. .I $$WP^OOPSUTL4(164)>528 S NULL(164)=" SUPERVISOR NOT AGREE EXPLAIN exceeds 528 character limit set by DOL."
  1. I $$GET1^DIQ(2260,IEN,52,"I")=2 D
  1. .F FLD=208,209,213,214,215,222,223,230,231,232,233,234,237,238,241,251,252,255,265,266,267,268,269 D
  1. ..I $$GET1^DIQ(2260,IEN,FLD)="" S NULL(FLD)=$$GET1^DID(2260,FLD,,"LABEL")
  1. .I $P($G(^OOPS(2260,IEN,"CA2J")),U)'="" D
  1. ..S NAM=$P(^OOPS(2260,IEN,"CA2J"),U) I '$$NMCHK^OOPSUTL3(NAM) S NULL(245)="Invalid Physician Name format."
  1. ..I $$GET1^DIQ(2260,IEN,246)="" S NULL(246)=$$GET1^DID(2260,246,,"LABEL")
  1. ..I $$GET1^DIQ(2260,IEN,247)="" S NULL(247)=$$GET1^DID(2260,247,,"LABEL")
  1. ..I $$GET1^DIQ(2260,IEN,248)="" S NULL(248)=$$GET1^DID(2260,248,,"LABEL")
  1. ..I $$GET1^DIQ(2260,IEN,249)="" S NULL(249)=$$GET1^DID(2260,249,,"LABEL")
  1. ..I $$GET1^DIQ(2260,IEN,270)="" S NULL(270)=$$GET1^DID(2260,270,,"LABEL")
  1. .I $$WP^OOPSUTL4(216)>528 S NULL(216)="RELATIONSHIP OF ILLNESS TO EMP exceeds 528 character limit set by DOL."
  1. .I $$WP^OOPSUTL4(217)>264 S NULL(217)="NATURE OF DISEASE/ILLNESS exceededs 264 character limit set by DOL."
  1. .I $$WP^OOPSUTL4(218)>528 S NULL(218)="CLAIM NOT FILED exceeds 528 character limit set by DOL."
  1. .I $$WP^OOPSUTL4(219)>528 S NULL(219)="EMPLOYEE STATEMENT DELAYED exceeds 528 character limit set by DOL."
  1. .I $$WP^OOPSUTL4(220)>528 S NULL(220)="MEDICAL REPORT DELAYED exceeds 528 character limit set by DOL."
  1. .I $$WP^OOPSUTL4(257)>528 S NULL(257)="WORK DUTY CHANGED exceeds 528 character limit set by DOL."
  1. ; if NULL is defined, invalid record
  1. I $D(NULL) S VAL=""
  1. K DISYS,DIW,DIW1,DIWT,DIWTC,DIWX,DN
  1. Q VAL
  1. CONV(TOCON) ; CONVERT A RANGE (Ex. 1,2-4,7 to 1,2,3,4,5,7)
  1. ; 'TOCON' must be passed as a literal (Ex. "1,2-4,7" not 1,2-4,7)
  1. ;
  1. ; Input: TOCON = Value to be converted
  1. ; Output: CONV = Converted value
  1. N CONV,FIRST,LAST,NUM,TEST,TEST2
  1. S CONV=""
  1. F TEST=1:1:$L(TOCON,",") D
  1. .S NUM=$P(TOCON,",",TEST)
  1. .I NUM'["-" S CONV=CONV_NUM_","
  1. .I NUM["-" S FIRST=$P(NUM,"-") S LAST=$P(NUM,"-",2) D
  1. ..F TEST2=FIRST:1:LAST S CONV=CONV_TEST2_","
  1. ..Q
  1. S CONV=$E(CONV,1,($L(CONV)-1))
  1. Q CONV