Last change
on this file since 1742 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
887 bytes
|
Line | |
---|
1 | DG681PST ;BAY/ALS;populate new PIVOT FILE DAYS TO RETAIN field ; 10/05/05
|
---|
2 | ;;5.3;Registration;**681**;Aug 13,1993
|
---|
3 | ;
|
---|
4 | ; This is a post-install routine for DG*5.3*681
|
---|
5 | ; The purpose is to check the 4th piece of the HL7 node in the
|
---|
6 | ; MAS PARAMETERS (#43) file and put the data in the 6th piece
|
---|
7 | ; of the HL7 node, the new location for the PIVOT FILE DAYS TO
|
---|
8 | ; RETAIN (#391.702) field as follows.
|
---|
9 | ;
|
---|
10 | ; If it equals 1- leave it as is, it was placed there by the
|
---|
11 | ; CREATE MFU FOR RAI MDS (#391.7014) field
|
---|
12 | ;
|
---|
13 | ; If it is greater than 29, move it to the 6th piece, the
|
---|
14 | ; PIVOT FILE DAYS TO RETAIN (#391.702) field is meant to be
|
---|
15 | ; at least 30.
|
---|
16 | ;
|
---|
17 | ; If it is null leave it as is.
|
---|
18 | EN ;
|
---|
19 | S RAI=""
|
---|
20 | S DIC=43,DA=1,DR="391.7014"
|
---|
21 | D EN^DIQ1 K DIC,DA,DR
|
---|
22 | S RAI=^UTILITY("DIQ1",$J,43,1,391.7014)
|
---|
23 | I RAI>29 D
|
---|
24 | . S DIE=43,DA=1,DR="391.702///^S X=RAI;391.7014///@"
|
---|
25 | . D ^DIE K DIE,DA,DR
|
---|
26 | K RAI
|
---|
27 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.