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

LR430PST.m

Go to the documentation of this file.
  1. 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
  1. ;
  1. PRE ; initiate pre-init process
  1. Q
  1. ;
  1. POST ; initiate post-init process
  1. ;
  1. D 768005
  1. ;
  1. D EN^DDIOL("Post-init routine for patch LR*5.2*430 completed.",,"!!!!")
  1. ;
  1. Q
  1. ;
  1. 768005 ; Check Howdy Site file (#69.86) for collection type to exclude of "IC"
  1. ; If found, replace with "I"
  1. ;
  1. N LRHYSITE,LRHYSQ,LRHYTYPE,LRTYPEIC
  1. S LRTYPEI="I"
  1. S LRHYSITE=""
  1. F S LRHYSITE=$O(^LRHY(69.86,LRHYSITE)) Q:LRHYSITE="" Q:LRHYSITE'?.N D
  1. . S LRHYSEQ=0
  1. . F S LRHYSEQ=$O(^LRHY(69.86,LRHYSITE,8,LRHYSEQ)) Q:LRHYSEQ="" Q:LRHYSEQ'?.N D
  1. . . S LRHYTYPE=$G(^LRHY(69.86,LRHYSITE,8,LRHYSEQ,0)) Q:LRHYTYPE=""
  1. . . ;
  1. . . I LRHYTYPE="IC" D
  1. . . . S DA=LRHYSEQ,DA(1)=LRHYSITE,DIK="^LRHY(69.86,"_DA(1)_",8,"
  1. . . . D ^DIK
  1. . . . K DA,DIK
  1. . . . ;
  1. . . . S DA=LRHYSEQ,DA(1)=LRHYSITE,DIC="^LRHY(69.86,"_DA(1)_",8,",X=LRTYPEI,DIC(0)=""
  1. . . . D FILE^DICN
  1. . . . K DA,DIC
  1. ;
  1. Q
  1. ;