ENLIB4.m

ENLIB4 ;(WASH IRMFO)/DH-Package Utilities (Facility Equip) ;9.29.98

 ;;7.0;ENGINEERING;**55**;Aug 17,1993

 ;

ADDUS ;  Maintain the utility system field down the parent/child hierarchy

 ;  Called at set of field #82 in file #6914

 ;  Uses recursion to climb up and down the "AE" x-ref

 ;  Will not maintain local x-refs on field #82

 N COUNT,PARNT,PRECRSR

 S COUNT=0,PRECRSR="" I $O(^ENG(6914,"AE",DA,0)) D ADRCRSN(DA,PRECRSR)

 I COUNT D EN^DDIOL(COUNT_" subsidiary records were set.") I $D(DJJ(21)) H 5 ; causes the old eng dj screen handler to pause

 Q

 ;

ADRCRSN(PARNT,PRECRSR) ;  navigate the "AE" x-ref

 N CHILD

 S CHILD=0 F  S CHILD=$O(^ENG(6914,"AE",PARNT,CHILD)) Q:'CHILD  D

 . Q:","_PRECRSR_PARNT_","[(","_CHILD_",")  ; avoid the endless loop

 . S $P(^ENG(6914,CHILD,9),U,12)=X,COUNT=COUNT+1

 . ;  if child has children then keep digging

 . I $O(^ENG(6914,"AE",CHILD,0)) D ADRCRSN(CHILD,PRECRSR_PARNT_",")

 Q

 ;

KILLUS ;  Maintain the utility system field down the parent/child hierarchy

 ;  Called at kill

 N PARNT,PRECRSR

 S PRECRSR="" I $O(^ENG(6914,"AE",DA,0)) D KLRCRSN(DA,PRECRSR)

 Q

 ;

KLRCRSN(PARNT,PRECRSR) ;  navigate the "AE" x-ref, deleting utility systems field of all the children

 N CHILD

 S CHILD=0 F  S CHILD=$O(^ENG(6914,"AE",PARNT,CHILD)) Q:'CHILD  D

 . Q:","_PRECRSR_PARNT_","[(","_CHILD_",")  ; avoid the endless loop

 . S $P(^ENG(6914,CHILD,9),U,12)=""

 . ;  if child has children then keep digging

 . I $O(^ENG(6914,"AE",CHILD,0)) D KLRCRSN(CHILD,PRECRSR_PARNT_",")

 Q

 ;

EDITY2 ; called upon edit of Y2K category, restricts screen edits

 Q:$P($G(DJJ(25)),U,3)'=71  ; quit if not screen edit

 I $G(V(25))="","FC^NA"[X Q  ; for screen edit to work, existing entry must be null and selected entry must be NA or FC

 D EN^DDIOL("You must use the Y2K module for this edit.")

 S X=$$GET1^DIQ(6914,DA,71,"I") H 5

 Q

 ;ENLIB4

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ENLIB4   1892     printed  Apr 09, 2024@21:00:23                                                                                                                                                                                                      Page 2

ENLIB4    ;(WASH IRMFO)/DH-Package Utilities (Facility Equip) ;9.29.98

 +1       ;;7.0;ENGINEERING;**55**;Aug 17,1993

 +2       ;

ADDUS     ;  Maintain the utility system field down the parent/child hierarchy

 +1       ;  Called at set of field #82 in file #6914

 +2       ;  Uses recursion to climb up and down the "AE" x-ref

 +3       ;  Will not maintain local x-refs on field #82

 +4        NEW COUNT,PARNT,PRECRSR

 +5        SET COUNT=0

           SET PRECRSR=""

           IF $ORDER(^ENG(6914,"AE",DA,0))

               DO ADRCRSN(DA,PRECRSR)

 +6       ; causes the old eng dj screen handler to pause

           IF COUNT

               DO EN^DDIOL(COUNT_" subsidiary records were set.")

               IF $DATA(DJJ(21))

                   HANG 5

 +7        QUIT 

 +8       ;

ADRCRSN(PARNT,PRECRSR) ;  navigate the "AE" x-ref

 +1        NEW CHILD

 +2        SET CHILD=0

           FOR 

               SET CHILD=$ORDER(^ENG(6914,"AE",PARNT,CHILD))

               if 'CHILD

                   QUIT 

               Begin DoDot:1

 +3       ; avoid the endless loop

                   if ","_PRECRSR_PARNT_","[(","_CHILD_",")

                       QUIT 

 +4                SET $PIECE(^ENG(6914,CHILD,9),U,12)=X

                   SET COUNT=COUNT+1

 +5       ;  if child has children then keep digging

 +6                IF $ORDER(^ENG(6914,"AE",CHILD,0))

                       DO ADRCRSN(CHILD,PRECRSR_PARNT_",")

               End DoDot:1

 +7        QUIT 

 +8       ;

KILLUS    ;  Maintain the utility system field down the parent/child hierarchy

 +1       ;  Called at kill

 +2        NEW PARNT,PRECRSR

 +3        SET PRECRSR=""

           IF $ORDER(^ENG(6914,"AE",DA,0))

               DO KLRCRSN(DA,PRECRSR)

 +4        QUIT 

 +5       ;

KLRCRSN(PARNT,PRECRSR) ;  navigate the "AE" x-ref, deleting utility systems field of all the children

 +1        NEW CHILD

 +2        SET CHILD=0

           FOR 

               SET CHILD=$ORDER(^ENG(6914,"AE",PARNT,CHILD))

               if 'CHILD

                   QUIT 

               Begin DoDot:1

 +3       ; avoid the endless loop

                   if ","_PRECRSR_PARNT_","[(","_CHILD_",")

                       QUIT 

 +4                SET $PIECE(^ENG(6914,CHILD,9),U,12)=""

 +5       ;  if child has children then keep digging

 +6                IF $ORDER(^ENG(6914,"AE",CHILD,0))

                       DO KLRCRSN(CHILD,PRECRSR_PARNT_",")

               End DoDot:1

 +7        QUIT 

 +8       ;

EDITY2    ; called upon edit of Y2K category, restricts screen edits

 +1       ; quit if not screen edit

           if $PIECE($GET(DJJ(25)),U,3)'=71

               QUIT 

 +2       ; for screen edit to work, existing entry must be null and selected entry must be NA or FC

           IF $GET(V(25))=""

               IF "FC^NA"[X

                   QUIT 

 +3        DO EN^DDIOL("You must use the Y2K module for this edit.")

 +4        SET X=$$GET1^DIQ(6914,DA,71,"I")

           HANG 5

 +5        QUIT 

 +6       ;ENLIB4