- 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 ---[H[J[2J[HLR430PST 1001 printed Dec 13, 2024@02:04:01 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 ;