source: FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DG681PST.m@ 1375

Last change on this file since 1375 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 887 bytes
Line 
1DG681PST ;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.
18EN ;
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.