LR430PST.m

LR430PST ;Post-init Routine for LR*5.2*430 ; 2/18/04 9:29am

 ;;5.2;LAB SERVICE;**430**;Dec 30, 1994;Build 2

 ;

PRE ; initiate pre-init process

 Q

 ;

POST ; initiate post-init process

 ;

 D 768005

 ;

 D EN^DDIOL("Post-init routine for patch LR*5.2*430 completed.",,"!!!!")

 ;

 Q

 ;

768005 ; Check Howdy Site file (#69.86) for collection type to exclude of "IC"

 ; If found, replace with "I"

 ;

 N LRHYSITE,LRHYSQ,LRHYTYPE,LRTYPEIC

 S LRTYPEI="I"

 S LRHYSITE=""

 F  S LRHYSITE=$O(^LRHY(69.86,LRHYSITE)) Q:LRHYSITE=""  Q:LRHYSITE'?.N  D

 . S LRHYSEQ=0

 . F  S LRHYSEQ=$O(^LRHY(69.86,LRHYSITE,8,LRHYSEQ)) Q:LRHYSEQ=""  Q:LRHYSEQ'?.N  D

 . . S LRHYTYPE=$G(^LRHY(69.86,LRHYSITE,8,LRHYSEQ,0)) Q:LRHYTYPE=""

 . . ;

 . . I LRHYTYPE="IC" D

 . . . S DA=LRHYSEQ,DA(1)=LRHYSITE,DIK="^LRHY(69.86,"_DA(1)_",8,"

 . . . D ^DIK

 . . . K DA,DIK

 . . . ;

 . . . S DA=LRHYSEQ,DA(1)=LRHYSITE,DIC="^LRHY(69.86,"_DA(1)_",8,",X=LRTYPEI,DIC(0)=""

 . . . D FILE^DICN

 . . . K DA,DIC

 ;

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LR430PST   1001     printed  Apr 09, 2024@21:12:04                                                                                                                                                                                                    Page 2

LR430PST  ;Post-init Routine for LR*5.2*430 ; 2/18/04 9:29am

 +1       ;;5.2;LAB SERVICE;**430**;Dec 30, 1994;Build 2

 +2       ;

PRE       ; initiate pre-init process

 +1        QUIT 

 +2       ;

POST      ; initiate post-init process

 +1       ;

 +2        DO 768005

 +3       ;

 +4        DO EN^DDIOL("Post-init routine for patch LR*5.2*430 completed.",,"!!!!")

 +5       ;

 +6        QUIT 

 +7       ;

768005    ; Check Howdy Site file (#69.86) for collection type to exclude of "IC"

 +1       ; If found, replace with "I"

 +2       ;

 +3        NEW LRHYSITE,LRHYSQ,LRHYTYPE,LRTYPEIC

 +4        SET LRTYPEI="I"

 +5        SET LRHYSITE=""

 +6        FOR 

               SET LRHYSITE=$ORDER(^LRHY(69.86,LRHYSITE))

               if LRHYSITE=""

                   QUIT 

               if LRHYSITE'?.N

                   QUIT 

               Begin DoDot:1

 +7                SET LRHYSEQ=0

 +8                FOR 

                       SET LRHYSEQ=$ORDER(^LRHY(69.86,LRHYSITE,8,LRHYSEQ))

                       if LRHYSEQ=""

                           QUIT 

                       if LRHYSEQ'?.N

                           QUIT 

                       Begin DoDot:2

 +9                        SET LRHYTYPE=$GET(^LRHY(69.86,LRHYSITE,8,LRHYSEQ,0))

                           if LRHYTYPE=""

                               QUIT 

 +10      ;

 +11                       IF LRHYTYPE="IC"

                               Begin DoDot:3

 +12                               SET DA=LRHYSEQ

                                   SET DA(1)=LRHYSITE

                                   SET DIK="^LRHY(69.86,"_DA(1)_",8,"

 +13                               DO ^DIK

 +14                               KILL DA,DIK

 +15      ;

 +16                               SET DA=LRHYSEQ

                                   SET DA(1)=LRHYSITE

                                   SET DIC="^LRHY(69.86,"_DA(1)_",8,"

                                   SET X=LRTYPEI

                                   SET DIC(0)=""

 +17                               DO FILE^DICN

 +18                               KILL DA,DIC

                               End DoDot:3

                       End DoDot:2

               End DoDot:1

 +19      ;

 +20       QUIT 

 +21      ;