- OOPSUTL2 ;HINES/WAA-Utilities Routines ;3/24/98
- ;;2.0;ASISTS;;Jun 03, 2002
- ;;
- CARE2(IEN) ; Update location field
- N LOC,GEN
- S GEN=$$GET1^DIQ(2260,IEN,27,"I")
- S LOC=$$GET1^DIQ(2261.4,GEN,2,"I")
- S $P(^OOPS(2260,IEN,"2162B"),U,1)=LOC
- Q
- VCHAR ; Write error message if invalid character
- W !,"Invalid character entered (~,`,@,#,$,%,*,_,|,\,},{,[,],>, or <)",!,"please edit.",!
- Q
- DEVSZ(IEN,DEV) ; This screens responses to the DEVICE SIZE table based on whether
- ; the OBJECT CAUSING INJURY field contains the word Needle or Syringe
- ;
- ; Input: IEN - Internal Record Number of claim
- ; DEV - Internal Record Number in ^OOPS(2262.2)
- ; Output: VIEW - if 1, can select, if 0, not available
- ;
- N OBJECT,VIEW
- S VIEW=0
- S OBJECT=$$UP^OOPSUTL4($$GET1^DIQ(2260,IEN,38))
- S TYPE=$$GET1^DIQ(2262.2,DEV,1,"I")
- I (OBJECT["NEEDLE")&(TYPE="N"!(TYPE="NS")) S VIEW=1
- I (OBJECT["SYRINGE")&(TYPE="S"!(TYPE="NS")) S VIEW=1
- Q VIEW
- EQUIP() ; This will ask if the product failed
- N ANS,DIR,Y
- S ANS=0
- S DIR(0)="YO^"
- S ANS=0,DIR("B")=$S($P($G(^OOPS(2260,IEN,"2162D")),U,7)'="":"YES",1:"NO")
- S DIR("A")="WAS THERE AN EQUIPMENT/DEVICE/PRODUCT FAILURE"
- S DIR("?")="Enter Yes or No to indicate that it was a failure of an device."
- D ^DIR
- I Y=1 S ANS=1
- I ANS'=1,$P($G(^OOPS(2260,IEN,"2162D")),U,7)'="" S $P(^("2162D"),U,7)=""
- Q ANS
- DISP ; disp text for prompt
- W !,"Was the exposed part:"
- W !," Skin,"
- W !," Eyes(Conjunctiva),"
- W !," Nose(mucosa),"
- W !," Mouth(mucosa)"
- W !," Other"
- W !
- Q
- CARE(IEN,GEN) ; Select Patient Care Area
- N AREA,TYPE,VIEW
- S VIEW=0
- S AREA=$$GET1^DIQ(2260,IEN,26,"I")
- I AREA="" S AREA="U"
- I AREA="U" S VIEW=1
- E D
- .S TYPE=$$GET1^DIQ(2261.4,GEN,2,"I")
- .I AREA=TYPE S VIEW=1
- .Q
- Q VIEW
- ;
- N AREA,OTHER
- N SELECT,DIR,Y,DEFAULT,INC
- S INC=$$GET1^DIQ(2260,IEN,52,"I")
- S SELECT=""
- ;W !
- ;W !," Select the Area Type:",!
- ;W !," 1) Patient"
- ;W !," 2) Non-patient"
- ;W !," 3) Unknown",!
- S DIR(0)="SAO^1:Patient;2:Non-patient;3:Unknown"
- S DIR("A")="GENERAL SETTING OF "_$S(INC=1:"INJURY",INC=2:"ILLNESS",1:"")_": "
- S DIR("?")="Select the area type to be used."
- S SELECT=$$GET1^DIQ(2260,IEN,27,"I")
- S SELECT=$S(SELECT'="":$$GET1^DIQ(2261.4,SELECT,2,"I"),1:"")
- S:SELECT'="" SELECT=$S(SELECT="P":"Patient",SELECT="N":"Non-patient",1:"")
- S:SELECT'="" DIR("B")=SELECT
- D ^DIR
- I $D(DTOUT)!($D(DUOUT)) S Y(0)="",AREA=-1
- S (OTHER,AREA)=$S(Y(0)="Patient":"P",Y(0)="Non-patient":"N",Y(0)="Unknown":"",1:"-1")
- I AREA'=-1 D
- .I AREA'="",$E(AREA,1)=$E(SELECT,1) S DEFAULT=$$GET1^DIQ(2261.4,$$GET1^DIQ(2260,IEN,27,"I"),.01,"E")
- .D
- ..N DIC,X
- ..S DIC="^OOPS(2261.4,"
- ..I AREA'="" S DIC("S")="I $$GET1^DIQ(2261.4,Y,2,""I"")=AREA"
- ..I $D(DEFAULT) S DIC("B")=DEFAULT
- ..S DIC("A")=$S(AREA="P":"PATIENT ",AREA="N":"NON-PATIENT ",1:" ")_"CARE AREA: ",DIC(0)="AQEMNZ"
- ..D ^DIC
- ..I $D(DTOUT)!($D(DUOUT)) S AREA=-1 Q
- ..I Y<1 S AREA=-1 Q
- ..S AREA=$P(Y,U)
- ..Q
- .Q
- I AREA>0 S AREA=AREA_U_OTHER
- Q AREA
- SAFETY(IEN,OPEN) ; Safety Officer Screen
- N VIEW
- S VIEW=0,OPEN=$G(OPEN,0)
- ;I FORM=
- I OPEN,'$P(^OOPS(2260,IEN,0),U,6) S VIEW=1
- I 'OPEN,$P(^OOPS(2260,IEN,0),U,6)'=2,$P($$EDSTA^OOPSUTL1(IEN,"S"),U,3) S VIEW=1
- Q VIEW
- SUPSCR(SUP,IEN,OPEN) ; Supervisor screen
- ; Input
- ; SUP the DUZ of the Supervisor
- ; IEN the IEN of the ENTRY in file 2260
- ;
- ; Output
- ; VIEW 1 Sup can see
- ; 0 Sup can't see
- N VIEW
- S VIEW=0,OPEN=$G(OPEN,0)
- I $$OPEN^OOPSUTL1(IEN,OPEN) D ;Form can be selected
- .N INJ
- .S INJ=$$GET1^DIQ(2260,IEN,52,"I")
- .I ($$GET1^DIQ(2260,IEN,53,"I")'=DUZ)&($$GET1^DIQ(2260,IEN,53.1,"I")'=DUZ) Q ; Not the Primary or secondary super
- .I $$EDSTA^OOPSUTL1(IEN,"O") Q
- .; ^^^ 2162 has been signed by the Safety Officer
- .
- .I ($P($$EDSTA^OOPSUTL1(IEN,"S"),U,INJ)),($P($$EDSTA^OOPSUTL1(IEN,"S"),U,3)) Q ; Form can not be selected because both
- . ;the 2162 and the CA1/2 have been signed
- .S VIEW=1
- .Q
- Q VIEW
- AGNINFO ;Patch 7 - default Agency info if available
- S AIEN=$P(^OOPS(2260,IEN,"2162A"),"^",9)
- S AGN=$$GET1^DIQ(4,AIEN,.01,"E")
- S ADD=$$GET1^DIQ(4,AIEN,1.01,"E")
- S CITY=$$GET1^DIQ(4,AIEN,1.03,"E")
- S STATE=$$GET1^DIQ(4,AIEN,.02,"E")
- S ZIP=$$GET1^DIQ(4,AIEN,1.04,"E")
- Q
- PHINFO ;Patch 7 - default physician data, if available
- S STAT=0
- S AIEN=$P(^OOPS(2260,IEN,"2162A"),"^",9)
- ; get physician data for correct STATION
- F S STAT=$O(^OOPS(2262,1,1,STAT)) Q:STAT'>0 I ($P(^OOPS(2262,1,1,STAT,0),"^")=AIEN) Q ;found match, quit
- I STAT D
- .S SIEN=STAT_",1,"
- .S PNAME=$$GET1^DIQ(2262.03,SIEN,1)
- .S PADD=$$GET1^DIQ(2262.03,SIEN,2)
- .S PCITY=$$GET1^DIQ(2262.03,SIEN,3)
- .S PSTATE=$$GET1^DIQ(2262.03,SIEN,4)
- .S PZIP=$$GET1^DIQ(2262.03,SIEN,5)
- .S PTITLE=$$GET1^DIQ(2262.03,SIEN,"6:1")
- Q
- RWS ;Regular Work Schedule
- N Y S DIR(0)="LA^1:7"
- S DIR("?",1)=" Enter the employee's work schedule at the time of the incident."
- S DIR("?",2)=" The numbers 1-7 correspond to the days of the week."
- S DIR("?",3)=" 1 = Sunday"
- S DIR("?",4)=" 2 = Monday"
- S DIR("?",5)=" 3 = Tuesday"
- S DIR("?",6)=" 4 = Wednesday"
- S DIR("?",7)=" 5 = Thursday"
- S DIR("?",8)=" 6 = Friday"
- S DIR("?",9)=" 7 = Saturday"
- S DIR("?",10)=" Enter the day numbers as a range or list separated by commas."
- S DIR("?",11)=""
- S DIR("?",12)=" Examples: For Mon-Fri enter 2-6 (or 2,3,4,5,6)"
- S DIR("?",13)=" For Wed-Sat enter 4-7 (or 4,5,6,7)"
- S DIR("?")=" For Mon,Wed,Fri enter 2,4,6"
- D ^DIR
- I $P(X,"-",2)>7 W !," Range exceeds 1-7 limit." G RWS
- Q:$D(DIRUT)
- S:ITEM=21 $P(^OOPS(2260,D0,"CA1F"),U,11)=Y
- S:ITEM=22 $P(^OOPS(2260,D0,"CA2I"),U,8)=Y
- Q
- EXCEPT ; Exception statement
- W !," ",ITEM,". A supervisor who knowingly certifies to any false statement,"
- W !," misrepresentation, concealment of fact, etc., in respect of"
- W !," this claim may also be subject to appropriate felony criminal"
- W !," prosecution."
- W !
- W !," I certify that the information given above and that furnished"
- W !," by the employee is true to the best of my knowledge with the"
- W !," following exception."
- W !
- Q
- MKNUM(INSTR) ; Strip/Convert num numerics from a string - Patch 11
- ; Input - INSTR - Character String that should be a number
- ; Output - NUMOUT - String stripped of all non-numeric characters.
- N K,NUMOUT
- S NUMOUT=""
- F K=1:1:$L(INSTR) I ($A(INSTR,K)>47)&($A(INSTR,K)<58) S NUMOUT=NUMOUT_$E(INSTR,K)
- Q NUMOUT
- RWSOT ;Regular Work Schedule output transform
- N I,HOLD
- S HOLD=""
- F I=1:1:($L(Y)/2) S HOLD=HOLD_$P("Sun,Mon,Tue,Wed,Thu,Fri,Sat",",",$P(Y,",",I))_","
- S Y=$E(HOLD,1,($L(HOLD)-1))
- Q
- UNION(IEN) ;
- ; Input: IEN = Internal Entry Number of entry in file 2260
- ; Output VALID = 1 Valid to be seen by Union
- ; = 0 Not Valid to be seen by Union
- N VALID
- S VALID=0
- I $$EDSTA^OOPSUTL1(IEN,"O"),$P($$EDSTA^OOPSUTL1(IEN,"S"),U,3) S VALID=1
- Q VALID
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOOPSUTL2 7106 printed Jan 18, 2025@02:41 Page 2
- OOPSUTL2 ;HINES/WAA-Utilities Routines ;3/24/98
- +1 ;;2.0;ASISTS;;Jun 03, 2002
- +2 ;;
- CARE2(IEN) ; Update location field
- +1 NEW LOC,GEN
- +2 SET GEN=$$GET1^DIQ(2260,IEN,27,"I")
- +3 SET LOC=$$GET1^DIQ(2261.4,GEN,2,"I")
- +4 SET $PIECE(^OOPS(2260,IEN,"2162B"),U,1)=LOC
- +5 QUIT
- VCHAR ; Write error message if invalid character
- +1 WRITE !,"Invalid character entered (~,`,@,#,$,%,*,_,|,\,},{,[,],>, or <)",!,"please edit.",!
- +2 QUIT
- DEVSZ(IEN,DEV) ; This screens responses to the DEVICE SIZE table based on whether
- +1 ; the OBJECT CAUSING INJURY field contains the word Needle or Syringe
- +2 ;
- +3 ; Input: IEN - Internal Record Number of claim
- +4 ; DEV - Internal Record Number in ^OOPS(2262.2)
- +5 ; Output: VIEW - if 1, can select, if 0, not available
- +6 ;
- +7 NEW OBJECT,VIEW
- +8 SET VIEW=0
- +9 SET OBJECT=$$UP^OOPSUTL4($$GET1^DIQ(2260,IEN,38))
- +10 SET TYPE=$$GET1^DIQ(2262.2,DEV,1,"I")
- +11 IF (OBJECT["NEEDLE")&(TYPE="N"!(TYPE="NS"))
- SET VIEW=1
- +12 IF (OBJECT["SYRINGE")&(TYPE="S"!(TYPE="NS"))
- SET VIEW=1
- +13 QUIT VIEW
- EQUIP() ; This will ask if the product failed
- +1 NEW ANS,DIR,Y
- +2 SET ANS=0
- +3 SET DIR(0)="YO^"
- +4 SET ANS=0
- SET DIR("B")=$SELECT($PIECE($GET(^OOPS(2260,IEN,"2162D")),U,7)'="":"YES",1:"NO")
- +5 SET DIR("A")="WAS THERE AN EQUIPMENT/DEVICE/PRODUCT FAILURE"
- +6 SET DIR("?")="Enter Yes or No to indicate that it was a failure of an device."
- +7 DO ^DIR
- +8 IF Y=1
- SET ANS=1
- +9 IF ANS'=1
- IF $PIECE($GET(^OOPS(2260,IEN,"2162D")),U,7)'=""
- SET $PIECE(^("2162D"),U,7)=""
- +10 QUIT ANS
- DISP ; disp text for prompt
- +1 WRITE !,"Was the exposed part:"
- +2 WRITE !," Skin,"
- +3 WRITE !," Eyes(Conjunctiva),"
- +4 WRITE !," Nose(mucosa),"
- +5 WRITE !," Mouth(mucosa)"
- +6 WRITE !," Other"
- +7 WRITE !
- +8 QUIT
- CARE(IEN,GEN) ; Select Patient Care Area
- +1 NEW AREA,TYPE,VIEW
- +2 SET VIEW=0
- +3 SET AREA=$$GET1^DIQ(2260,IEN,26,"I")
- +4 IF AREA=""
- SET AREA="U"
- +5 IF AREA="U"
- SET VIEW=1
- +6 IF '$TEST
- Begin DoDot:1
- +7 SET TYPE=$$GET1^DIQ(2261.4,GEN,2,"I")
- +8 IF AREA=TYPE
- SET VIEW=1
- +9 QUIT
- End DoDot:1
- +10 QUIT VIEW
- +11 ;
- +12 NEW AREA,OTHER
- +13 NEW SELECT,DIR,Y,DEFAULT,INC
- +14 SET INC=$$GET1^DIQ(2260,IEN,52,"I")
- +15 SET SELECT=""
- +16 ;W !
- +17 ;W !," Select the Area Type:",!
- +18 ;W !," 1) Patient"
- +19 ;W !," 2) Non-patient"
- +20 ;W !," 3) Unknown",!
- +21 SET DIR(0)="SAO^1:Patient;2:Non-patient;3:Unknown"
- +22 SET DIR("A")="GENERAL SETTING OF "_$SELECT(INC=1:"INJURY",INC=2:"ILLNESS",1:"")_": "
- +23 SET DIR("?")="Select the area type to be used."
- +24 SET SELECT=$$GET1^DIQ(2260,IEN,27,"I")
- +25 SET SELECT=$SELECT(SELECT'="":$$GET1^DIQ(2261.4,SELECT,2,"I"),1:"")
- +26 if SELECT'=""
- SET SELECT=$SELECT(SELECT="P":"Patient",SELECT="N":"Non-patient",1:"")
- +27 if SELECT'=""
- SET DIR("B")=SELECT
- +28 DO ^DIR
- +29 IF $DATA(DTOUT)!($DATA(DUOUT))
- SET Y(0)=""
- SET AREA=-1
- +30 SET (OTHER,AREA)=$SELECT(Y(0)="Patient":"P",Y(0)="Non-patient":"N",Y(0)="Unknown":"",1:"-1")
- +31 IF AREA'=-1
- Begin DoDot:1
- +32 IF AREA'=""
- IF $EXTRACT(AREA,1)=$EXTRACT(SELECT,1)
- SET DEFAULT=$$GET1^DIQ(2261.4,$$GET1^DIQ(2260,IEN,27,"I"),.01,"E")
- +33 Begin DoDot:2
- +34 NEW DIC,X
- +35 SET DIC="^OOPS(2261.4,"
- +36 IF AREA'=""
- SET DIC("S")="I $$GET1^DIQ(2261.4,Y,2,""I"")=AREA"
- +37 IF $DATA(DEFAULT)
- SET DIC("B")=DEFAULT
- +38 SET DIC("A")=$SELECT(AREA="P":"PATIENT ",AREA="N":"NON-PATIENT ",1:" ")_"CARE AREA: "
- SET DIC(0)="AQEMNZ"
- +39 DO ^DIC
- +40 IF $DATA(DTOUT)!($DATA(DUOUT))
- SET AREA=-1
- QUIT
- +41 IF Y<1
- SET AREA=-1
- QUIT
- +42 SET AREA=$PIECE(Y,U)
- +43 QUIT
- End DoDot:2
- +44 QUIT
- End DoDot:1
- +45 IF AREA>0
- SET AREA=AREA_U_OTHER
- +46 QUIT AREA
- SAFETY(IEN,OPEN) ; Safety Officer Screen
- +1 NEW VIEW
- +2 SET VIEW=0
- SET OPEN=$GET(OPEN,0)
- +3 ;I FORM=
- +4 IF OPEN
- IF '$PIECE(^OOPS(2260,IEN,0),U,6)
- SET VIEW=1
- +5 IF 'OPEN
- IF $PIECE(^OOPS(2260,IEN,0),U,6)'=2
- IF $PIECE($$EDSTA^OOPSUTL1(IEN,"S"),U,3)
- SET VIEW=1
- +6 QUIT VIEW
- SUPSCR(SUP,IEN,OPEN) ; Supervisor screen
- +1 ; Input
- +2 ; SUP the DUZ of the Supervisor
- +3 ; IEN the IEN of the ENTRY in file 2260
- +4 ;
- +5 ; Output
- +6 ; VIEW 1 Sup can see
- +7 ; 0 Sup can't see
- +8 NEW VIEW
- +9 SET VIEW=0
- SET OPEN=$GET(OPEN,0)
- +10 ;Form can be selected
- IF $$OPEN^OOPSUTL1(IEN,OPEN)
- Begin DoDot:1
- +11 NEW INJ
- +12 SET INJ=$$GET1^DIQ(2260,IEN,52,"I")
- +13 ; Not the Primary or secondary super
- IF ($$GET1^DIQ(2260,IEN,53,"I")'=DUZ)&($$GET1^DIQ(2260,IEN,53.1,"I")'=DUZ)
- QUIT
- +14 IF $$EDSTA^OOPSUTL1(IEN,"O")
- QUIT
- +15 ; ^^^ 2162 has been signed by the Safety Officer
- +16 +17 ; Form can not be selected because both
- IF ($PIECE($$EDSTA^OOPSUTL1(IEN,"S"),U,INJ))
- IF ($PIECE($$EDSTA^OOPSUTL1(IEN,"S"),U,3))
- QUIT
- +18 ;the 2162 and the CA1/2 have been signed
- +19 SET VIEW=1
- +20 QUIT
- End DoDot:1
- +21 QUIT VIEW
- AGNINFO ;Patch 7 - default Agency info if available
- +1 SET AIEN=$PIECE(^OOPS(2260,IEN,"2162A"),"^",9)
- +2 SET AGN=$$GET1^DIQ(4,AIEN,.01,"E")
- +3 SET ADD=$$GET1^DIQ(4,AIEN,1.01,"E")
- +4 SET CITY=$$GET1^DIQ(4,AIEN,1.03,"E")
- +5 SET STATE=$$GET1^DIQ(4,AIEN,.02,"E")
- +6 SET ZIP=$$GET1^DIQ(4,AIEN,1.04,"E")
- +7 QUIT
- PHINFO ;Patch 7 - default physician data, if available
- +1 SET STAT=0
- +2 SET AIEN=$PIECE(^OOPS(2260,IEN,"2162A"),"^",9)
- +3 ; get physician data for correct STATION
- +4 ;found match, quit
- FOR
- SET STAT=$ORDER(^OOPS(2262,1,1,STAT))
- if STAT'>0
- QUIT
- IF ($PIECE(^OOPS(2262,1,1,STAT,0),"^")=AIEN)
- QUIT
- +5 IF STAT
- Begin DoDot:1
- +6 SET SIEN=STAT_",1,"
- +7 SET PNAME=$$GET1^DIQ(2262.03,SIEN,1)
- +8 SET PADD=$$GET1^DIQ(2262.03,SIEN,2)
- +9 SET PCITY=$$GET1^DIQ(2262.03,SIEN,3)
- +10 SET PSTATE=$$GET1^DIQ(2262.03,SIEN,4)
- +11 SET PZIP=$$GET1^DIQ(2262.03,SIEN,5)
- +12 SET PTITLE=$$GET1^DIQ(2262.03,SIEN,"6:1")
- End DoDot:1
- +13 QUIT
- RWS ;Regular Work Schedule
- +1 NEW Y
- SET DIR(0)="LA^1:7"
- +2 SET DIR("?",1)=" Enter the employee's work schedule at the time of the incident."
- +3 SET DIR("?",2)=" The numbers 1-7 correspond to the days of the week."
- +4 SET DIR("?",3)=" 1 = Sunday"
- +5 SET DIR("?",4)=" 2 = Monday"
- +6 SET DIR("?",5)=" 3 = Tuesday"
- +7 SET DIR("?",6)=" 4 = Wednesday"
- +8 SET DIR("?",7)=" 5 = Thursday"
- +9 SET DIR("?",8)=" 6 = Friday"
- +10 SET DIR("?",9)=" 7 = Saturday"
- +11 SET DIR("?",10)=" Enter the day numbers as a range or list separated by commas."
- +12 SET DIR("?",11)=""
- +13 SET DIR("?",12)=" Examples: For Mon-Fri enter 2-6 (or 2,3,4,5,6)"
- +14 SET DIR("?",13)=" For Wed-Sat enter 4-7 (or 4,5,6,7)"
- +15 SET DIR("?")=" For Mon,Wed,Fri enter 2,4,6"
- +16 DO ^DIR
- +17 IF $PIECE(X,"-",2)>7
- WRITE !," Range exceeds 1-7 limit."
- GOTO RWS
- +18 if $DATA(DIRUT)
- QUIT
- +19 if ITEM=21
- SET $PIECE(^OOPS(2260,D0,"CA1F"),U,11)=Y
- +20 if ITEM=22
- SET $PIECE(^OOPS(2260,D0,"CA2I"),U,8)=Y
- +21 QUIT
- EXCEPT ; Exception statement
- +1 WRITE !," ",ITEM,". A supervisor who knowingly certifies to any false statement,"
- +2 WRITE !," misrepresentation, concealment of fact, etc., in respect of"
- +3 WRITE !," this claim may also be subject to appropriate felony criminal"
- +4 WRITE !," prosecution."
- +5 WRITE !
- +6 WRITE !," I certify that the information given above and that furnished"
- +7 WRITE !," by the employee is true to the best of my knowledge with the"
- +8 WRITE !," following exception."
- +9 WRITE !
- +10 QUIT
- MKNUM(INSTR) ; Strip/Convert num numerics from a string - Patch 11
- +1 ; Input - INSTR - Character String that should be a number
- +2 ; Output - NUMOUT - String stripped of all non-numeric characters.
- +3 NEW K,NUMOUT
- +4 SET NUMOUT=""
- +5 FOR K=1:1:$LENGTH(INSTR)
- IF ($ASCII(INSTR,K)>47)&($ASCII(INSTR,K)<58)
- SET NUMOUT=NUMOUT_$EXTRACT(INSTR,K)
- +6 QUIT NUMOUT
- RWSOT ;Regular Work Schedule output transform
- +1 NEW I,HOLD
- +2 SET HOLD=""
- +3 FOR I=1:1:($LENGTH(Y)/2)
- SET HOLD=HOLD_$PIECE("Sun,Mon,Tue,Wed,Thu,Fri,Sat",",",$PIECE(Y,",",I))_","
- +4 SET Y=$EXTRACT(HOLD,1,($LENGTH(HOLD)-1))
- +5 QUIT
- UNION(IEN) ;
- +1 ; Input: IEN = Internal Entry Number of entry in file 2260
- +2 ; Output VALID = 1 Valid to be seen by Union
- +3 ; = 0 Not Valid to be seen by Union
- +4 NEW VALID
- +5 SET VALID=0
- +6 IF $$EDSTA^OOPSUTL1(IEN,"O")
- IF $PIECE($$EDSTA^OOPSUTL1(IEN,"S"),U,3)
- SET VALID=1
- +7 QUIT VALID