DG681PST.m

DG681PST ;BAY/ALS;populate new PIVOT FILE DAYS TO RETAIN field ; 10/05/05

 ;;5.3;Registration;**681**;Aug 13,1993

 ;

 ; This is a post-install routine for DG*5.3*681

 ; The purpose is to check the 4th piece of the HL7 node in the

 ; MAS PARAMETERS (#43) file and put the data in the 6th piece

 ; of the HL7 node, the new location for the PIVOT FILE DAYS TO

 ; RETAIN (#391.702) field as follows.

 ;

 ; If it equals 1- leave it as is, it was placed there by the

 ; CREATE MFU FOR RAI MDS (#391.7014) field

 ;

 ; If it is greater than 29, move it to the 6th piece, the 

 ; PIVOT FILE DAYS TO RETAIN (#391.702) field is meant to be

 ; at least 30.

 ;

 ; If it is null leave it as is.

EN ;

 S RAI=""

 S DIC=43,DA=1,DR="391.7014"

 D EN^DIQ1 K DIC,DA,DR

 S RAI=^UTILITY("DIQ1",$J,43,1,391.7014)

 I RAI>29 D

 . S DIE=43,DA=1,DR="391.702///^S X=RAI;391.7014///@"

 . D ^DIE K DIE,DA,DR

 K RAI

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG681PST   914     printed  Apr 09, 2024@21:42:35                                                                                                                                                                                                     Page 2

DG681PST  ;BAY/ALS;populate new PIVOT FILE DAYS TO RETAIN field ; 10/05/05

 +1       ;;5.3;Registration;**681**;Aug 13,1993

 +2       ;

 +3       ; This is a post-install routine for DG*5.3*681

 +4       ; The purpose is to check the 4th piece of the HL7 node in the

 +5       ; MAS PARAMETERS (#43) file and put the data in the 6th piece

 +6       ; of the HL7 node, the new location for the PIVOT FILE DAYS TO

 +7       ; RETAIN (#391.702) field as follows.

 +8       ;

 +9       ; If it equals 1- leave it as is, it was placed there by the

 +10      ; CREATE MFU FOR RAI MDS (#391.7014) field

 +11      ;

 +12      ; If it is greater than 29, move it to the 6th piece, the 

 +13      ; PIVOT FILE DAYS TO RETAIN (#391.702) field is meant to be

 +14      ; at least 30.

 +15      ;

 +16      ; If it is null leave it as is.

EN        ;

 +1        SET RAI=""

 +2        SET DIC=43

           SET DA=1

           SET DR="391.7014"

 +3        DO EN^DIQ1

           KILL DIC,DA,DR

 +4        SET RAI=^UTILITY("DIQ1",$JOB,43,1,391.7014)

 +5        IF RAI>29

               Begin DoDot:1

 +6                SET DIE=43

                   SET DA=1

                   SET DR="391.702///^S X=RAI;391.7014///@"

 +7                DO ^DIE

                   KILL DIE,DA,DR

               End DoDot:1

 +8        KILL RAI

 +9        QUIT