| GENERAL DESCRIPTION |
Laboratory V5.2 (only V5.2) is granted the following
exemption:
The laboratory is supplying a pre release 5.2 patch. The patch will allow the
site to mimic the conversion process required for V5.2 install. As a part of
the process a FileMan sort template is created of all providers the software
was unable to repoint to VA(200.
The creation of the sort template is done with a DIC call and a DR string. We
are not aware of a method to load the actual data. Therefore, this function is
hard coded.
The exemption is only required for the one time conversion process. Listed
below is the actual code involved. Please advise of any suggestion you feel
will be of benefit.
EXCEPT(LRFILE,LRD0) ;- LOGS EXCEPTIONS FROM THE CONVERSIONS OF DATA FROM 6
A ND 16
; exceptions are put into a SORT template so the the site can
; then use fileman enter edit to correct problems found.
;
N DIC,LRSORT,X,Y
I '$D(^DIBT("B",LRFILE_"-EXCEPTIONS")) D ADD
I '$D(LRSORT) S LRSORT=$O(^DIBT("B",LRFILE_"-EXCEPTIONS",0))
S ^DIBT(LRSORT,1,LRD0)=""
Q
;
ADD ; add a new sort template to be used for exception logging and editing
N X,Y
S DIC="^DIBT(",DIC(0)="L",DIC("DR")="2///^S X=""T"";4///^S X=$P(LR
FILE," "-"",2);5///^S X=0;"
S X=LRFILE_"-EXCEPTIONS" D FILE^DICN S LRSORT=+Y
Q
|