Last change
on this file since 952 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
887 bytes
|
Rev | Line | |
---|
[628] | 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.