RC45P304.m

RC45P304 ;ALB/SAB - POST-INSTALL PRCA*4.5*304 ;02-APR-15

 ;;4.5;Accounts Receivable;**304**;Mar 20, 1995;Build 104

 ;;Per VA Directive 6402, this routine should not be modified.

 ;

 Q

 ;

POST ;This will rename two options and Reindex 344.4 for the updated indexes

 ;

 D BMES^XPDUTL(" Post-install for PRCA*4.5*304 Starting.")

 ;

 ; Updating AR parameter file

 D MES^XPDUTL("      >> Updating parameters in the AR SITE PARAMETER file (#342) ...")

 ;

 D UPD342   ; Update the AR Site Parameter file with the correct starting values.

 ;

 ; Updating EDI Parameter file

 D MES^XPDUTL("      >> Updating parameters in the RCDPE PARAMETER file (#344.61) ...")

 ;

 D UPD34461 ; Update the RCDPE Parameter file with the correct starting values.

 ;

 D BMES^XPDUTL(" Post-install for PRCA*4.5*304 Complete.")

 ;

 Q

 ;

UPD342 ;

 ;

 N X,Y,DIE,DA,DR,DTOUT,DATA

 ;

 S DR=""

 S DATA=$G(^RC(342,1,7))

 S:$P(DATA,U,4)="" DR=DR_"7.04////45;"

 S:$P(DATA,U,4)="" DR=DR_"7.05////N;"

 S:$P(DATA,U,4)="" DR=DR_"7.06////N"

 Q:DR=""

 S DIE="^RC(342,",DA=1

 D ^DIE

 Q

 ;

UPD34461 ;

 ;

 N X,Y,DIE,DA,DR,DTOUT,DATA

 S DR=""

 S DATA=$G(^RCY(344.61,1,1))

 S:$P(DATA,U,1)="" DR=DR_"1.01////N;"

 S:$P(DATA,U,2)="" DR=DR_"1.02////N"

 ;

 Q:DR=""

 ;

 S DIE="^RCY(344.61,",DA=1

 D ^DIE

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RC45P304   1307     printed  Apr 09, 2024@20:51:51                                                                                                                                                                                                    Page 2

RC45P304  ;ALB/SAB - POST-INSTALL PRCA*4.5*304 ;02-APR-15

 +1       ;;4.5;Accounts Receivable;**304**;Mar 20, 1995;Build 104

 +2       ;;Per VA Directive 6402, this routine should not be modified.

 +3       ;

 +4        QUIT 

 +5       ;

POST      ;This will rename two options and Reindex 344.4 for the updated indexes

 +1       ;

 +2        DO BMES^XPDUTL(" Post-install for PRCA*4.5*304 Starting.")

 +3       ;

 +4       ; Updating AR parameter file

 +5        DO MES^XPDUTL("      >> Updating parameters in the AR SITE PARAMETER file (#342) ...")

 +6       ;

 +7       ; Update the AR Site Parameter file with the correct starting values.

           DO UPD342

 +8       ;

 +9       ; Updating EDI Parameter file

 +10       DO MES^XPDUTL("      >> Updating parameters in the RCDPE PARAMETER file (#344.61) ...")

 +11      ;

 +12      ; Update the RCDPE Parameter file with the correct starting values.

           DO UPD34461

 +13      ;

 +14       DO BMES^XPDUTL(" Post-install for PRCA*4.5*304 Complete.")

 +15      ;

 +16       QUIT 

 +17      ;

UPD342    ;

 +1       ;

 +2        NEW X,Y,DIE,DA,DR,DTOUT,DATA

 +3       ;

 +4        SET DR=""

 +5        SET DATA=$GET(^RC(342,1,7))

 +6        if $PIECE(DATA,U,4)=""

               SET DR=DR_"7.04////45;"

 +7        if $PIECE(DATA,U,4)=""

               SET DR=DR_"7.05////N;"

 +8        if $PIECE(DATA,U,4)=""

               SET DR=DR_"7.06////N"

 +9        if DR=""

               QUIT 

 +10       SET DIE="^RC(342,"

           SET DA=1

 +11       DO ^DIE

 +12       QUIT 

 +13      ;

UPD34461  ;

 +1       ;

 +2        NEW X,Y,DIE,DA,DR,DTOUT,DATA

 +3        SET DR=""

 +4        SET DATA=$GET(^RCY(344.61,1,1))

 +5        if $PIECE(DATA,U,1)=""

               SET DR=DR_"1.01////N;"

 +6        if $PIECE(DATA,U,2)=""

               SET DR=DR_"1.02////N"

 +7       ;

 +8        if DR=""

               QUIT 

 +9       ;

 +10       SET DIE="^RCY(344.61,"

           SET DA=1

 +11       DO ^DIE

 +12       QUIT 

 +13      ;